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INTRODUCTION 


This document describes the syntax and operating instructions for 
the second generation 81000 syster develonment language» SDL2. 
Appendix A documents the corresponding user programming Language» 
UPL2. Appendix B documents the differences between SDL and SDL2. 


RELATED DOCUMENTATION 


NAME NUMBER 
SDL2 SMACHINE 2228 3568 
ISSA 2233 2845 
MCP COMMUNICATES AND STRUCTURES 2228 3655 
MCP CONTROL SYNTAX 2228 3501 


B19900 MCPIL 2212 5462 
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S0L2 LANGUAGE 
The SDL2 tanguage is descrited with syntax diagrams. 


A syntax diagram consists of a main line which contains ail 
required elements of the Syntax. The main Line may have other 
lines above and below it. Lines above the main line indicate 
Loops back in the syntax» and tines below the main dine indicate 


alterrate productions. Continuation from one tine of a diagram 
tc another is represented by a right arrow», ™">"» at the end of 
the current Line and the Feginning of the next tine. A complete 


syntax diagram is terminatec by a vertical barr "1". 


If an element appears on the main Line of the syntax diagram with 
ne Lines below ite then that element is required. [f an element 
appears on the main Line of the diagras but other elements appear 


in tines directly betown its then one of those elements is 
required. If an elentert appears in a line belaw the fwain tine 
and the main tine above it is emptyr then the element is 


optional. 


Elements which are in uppercase» or are Special characters» are 
terminal symbols and must appear titeraliy in the finat 
production. Lowercase elements reference 2 syntax diagram of 
that nate. 


Exampleas: 


(<-Seee see a= 
1 i 
ss0-c-- A seceeren= 0 ara-2- ws2--- © 8 oswescese alashaletatesleaattetateiataal i 
1 i 1 1 
[===- |] se] jas {) ==] 
j { 1 -| 
{ss= <2 <8 =4 j=s= Dp =="4 
{ 1 i | 
foo" 3 «--] jas= EF see] 
where 
AOB is valid 
AlBB 1s vatid 
AZ2BBBC is vatid 


Ad is invalid 
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TOKENS 

SEL2 recognizes the following token types: identifiers» bit 
Strings» fixed numbers» character strings» and special 


characters. 


Comments are attiowed anywhere in the input stream» except within 
quoted strings. There are two forms of comments. The first form 
begins with a % and terainates with the end of that line. The 
second form begins with /* and terminates with */. A comment 
enclosed in #/* */ may span sultiple lines. 


Blankse special characters» comments» and endwofttines are ait 
treated as separators» and sc cannot be embedded within a token. 


ioentifiers 


An SOL2 identifier may contain a maximum of 72 characters. YVatid 
characters include upperwcase tetters CA7*Z)» lower-case letters 
Cav2z)» numerals €0°9)» and the underscore (_). Identifiers ust 
begin with a tetters anc are not normaily case~sensitive. 


Example: 
THIS_TOKEN 
A100 
XYZ 


Fixed Nyabers 


A string consisting entirely of nugerals» without any bracketing 
characters» is treated as a fixed number. 


txamptes: 
12366 
490 


Character Strings 


Character strings are Dracketed by the double quote character 
ude Pe If a quote is desired within 2@ qucted string» then two 
quotes (""*) must be usece 


Examples 
"ABCDEF™ 
PKEYWORD "PTHEN®™ IS QUT oF CONTEXT" 
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Bit Strings 


Bit strings are bracketed by the at™sign character (42). The 
string may be either -Linary» quartat» octal» or hexadecimal» 
Where the number of bits per digit is specified within 


parentheses» The default is hexadecimal (4 bits per digit). 


Examples 
aOQAFF 2 
201901003 
a(2)901222 


2pecial Characters 


SDL2 recognizes the fotlowing special characters. 


& » ? < a Zz 
$ : + > ” r4 
¢ r = * C 
) i = / ] 
SIRUCTURE GE AN SELZ PROSRAM 
ara is “<9 Declarations “*““e*3=". Sody “Seas e esse eee] 


The structure of an SDL2 program must foliow the sequence 
described in the syntax graphs. Adil variables» files» defines 
and data types ust be dectared before the procedureser and ait 
procedures must be deciared before the main executable part of 
the program (Body). 


Program execution begins with the first statement in the program 
Body». 
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DECLARATIONS 
DECLARATIONS 
1 ga mene Ee ee ee oe —_ae sewer ree ee | 
i i 
MM Mmm wm wee eee ee eee ee ee eo a eee ee A ee ee ey 
1 1 
is- Define Bectlaration “*""" saene GU] 
j 
im- File Declaration -"3ctt*%r?™ | 


Im" Switch File Dectaration 7] 


im- Constant Declaration “""~~1 
on Type Deciaration "377" """ 
jee Record Cectaration ee 
ee Set Declaration eee ssedis, 


t-- Variable Declaration  *77*71 


{<2 se ee eee eee ee ee -_ a oe ee ee oe eee ae | 
1 i 


>’ a a ae Bea nese awe Se ee sane eee ee wee nS eee ee ee | 


i-- Procedure Declaration s"*3~7 - lilt | 


All identifiers must be decitared before they can be referenceds 
except within the define text of a define deciaration where they 
must be declared before the expansion of the define. 


Scope of an Identifier 


For global declarations» the scope of an identifier is att the 
subsequent deciarations» nested procedures» and the main body of 
the program» except for any nested procedures»e that declare 
another version of the identifier. 


For a dectaration within a procedures the scope of an identifier 
is that procedure and ary rested precedurese except for any that 
deciare another version of the identifier. 
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Restrictions 


File Dectarations and Switch File Declarations are altowed only 
at the global tievel Clexic level (©). 


Intrinsics» Separate Units» and Independent Units may not declare 
any Files» iwitch Files» or Variables at the global ftevel.»j They 
may» however» dectare global Defines» Constants» Types» Records» 
and Setse 
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DEFINE DECLARATION 


| mowers eee neeeeeeee 4 -neHe iataieietenatae itatatated 


1 1 
e-= O8F INE "=~ Define Head = AS =~ #@ =" Define Text =~ #& -~-1 


Define Head 


e=- Identifier so ester eres ener ences cee cn seen nne ees eoece-- 


i | 
i-- € -* Cefine Parameter List ~~ ) =~! 


Define Parameter List 
[<-<----= y waeecene-] 


ee ee es ee ITdenti fier ase eee ee ee eee oe | 


The Define Declaration atlows a string of text to be attlocated an 


icentifier. Whenever this identifier is encountered in the 
source program it is replaced by the text Cexcent in a define 
dectaration). Define exparsion is also turned off when the 


ccmpiler is expecting an identifier in any of the fottowing: 
Declaration Identifiers» Define Identifier» Procedure Identifierr 
Formal Parameter Identifiers» Do Group Identifier. 


A defire declaration may have parameters. When the define text 
is invoked there must be a text string for every parameter. This 
string witt preptace att occurrences of the define parameter 
identifier in the define texte Parameters containing commas 
which are not enclosed in parentheses» or parameters containing 
mismatched parentheses» must be enclosed in pound signs (#). 


Defines are included in SOL2 to ease the conversion from SDL. In 
most cases defines can be replaced by Type and Constant 
statements» resulting in faster compilation speeds. 

Example: 


DEFINE 
ARRAY_SIZE AS #10248» 


MAX (X»Y¥) AS # IF X > ¥Y THEN X ELSE Y de 
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FILE OECLARATION 


See INPUT/OUTPUT Section. 


SHZTCH FILE DECLARATION 


See INPUT/SOUTPUT Section. 
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CONSTANT OFCLARATION 


1 — nm nan eee ee > seesaw nee eee | 


1 I 
a CONSTANT ==" Constant Identifier “= = 77" Vatue ="."-~ | 


The Constant Dectaration introduces an identifier as a synonym 
for a constant. Value may be either a character or bit titeral» 
an expression which evaluates to a fixed constants or a 
previousty defined constant. 


Example: 
CONSTANT TEN = 10>» 
FIFTY = 5 * JEN» 
LEVEL = "11.0" 
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LYees 
Type 

Sone Sealan hype: Ae eee rere Teese ee ee eee ed 


i 
i-- Array Type <-=---4 


atalar Iyne 


a Se Simple Ty pe ee ee er ee eee er er ee ee ee re eT! a ee J 
{ I 
i=-- Reference Type cr--"] 
I 1 
I-~ Pointer Type cert er j 


i-~ Fide Pointer Type =] 


aingis Type 


alata FIXED treme tt eres cesn sn nner ne ew ew ence sence ecen seen ann|{ 
] 1 
Pm-99" BIT senses e--- sate seenreen aw nen sence nenen aecoo-] 
1 | 1 i 1] 
j Iw-- CHARACTER <--] fi-~- € =" Type Size -~ ) w=! } 
q 1 
I=— VARYING tonsa cena renee aren cere nase on na wesw anew senn 1 
1 
i>= -—Reeord Ddentt tier Ss "e5s-Sesee2 Se te eR eal eee tn | 
1 
I-- Set Identifier ---=-- stelateatetatalashatetelatetaiatatatehetatetatatebeetatabetabers i 
1 ] 
I-- CHARACTER SET teen cern tt esen terse sess cence sere neeren =I 


i-- MEMBER OF “~- Set Identifier ---9er cere mene n en e--= 
i i 
I-- BOOLEAN sent eeenenn--=- eoeece-- lalate tated 


The type FIXED wiit allocate a 24 bit fietd» where the high order 
vit is interpreted as the sign bit (9 = positive» 1 = negative). 
Negative vatues are represented in their two's complement form. 
Fixed numbers can range fro# “€2**23)41 to (2%*233—-1. 


The type BIT witt allocate a field of <Tynpe Size> bits. It can 
have a maximum size of 65535 bits. <Tyne Size> can onty be 
omitted in the <Type> part cf a fermal parameter dectaration» the 
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<Type> part of a procedure dectaration»s the <Type> part of a 
global dynamic variable Csee ALLOCATE) > or a Reference Type 
declaration» indicating that the size is dynamic. 


The type CHARACTER witt adtlocate a field of <Type Size> 
character S~« Each character occupies 8 bits. It can have a 
maximum size of 6191 characters. «Type Size> can onty be omitted 
in the <Type> part of a for@#at parameter declarations the <Type> 
part of a procedure dectlaraticne the <Type> part of a globajt 
dynamic variable (see ALLOCATE)» or a Reference Type declarationr 
indicating that the size is dynamic. 


The type VARYING can only be used in a procedure declaration or a 
formal carameter dectaratior. It indicates that both the type 
and Length are dynamic. 


The type “Record Icentifier> wilt adlocate a field with the 
Length of the sum of the fields in the Record Dectaration»s and 
make awailable the field names for field selection. The field 
witl be of type Character if ali subfietds in the Record 
Declaration are Character? otherwise it will be of type Bit. 


The type “Set Identifier> wiil allocate a field with a length 
equal te the number of aembers declared in the Set Dectaration 
Cin bits). 


The type CHARACTER_SET is a predefined Set Declaration with 255 
members» the EBCDIC character set. 


The type MEMBER OF will attccate a field with a Length equal to 
the nuasser of bits required to represent the set member with the 
largest ordinal vatue. 


The type BOOLEAN is a predefined Set Member Dectaration. It is 
defined as a member of a set containing two membersr FALSE and 
TRUE» with ordinad values 0 and I» respectively. In the 
explanation of types BIT and CHARACTERe inciude “global dynamic 
variables” as a case where <Type Size> may te omitted» and refer 
to the ALLOCATE standard procedure for more information. 


In the explanation of <@frray Type>» include *"gtobal dynamic 
wariables” as a case where an asterisk is aliowed in place of 
<Array @ound>» and refer to the ALLOCATE standard procedure for: 
mere information. 
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neference Lype 


wocaa-- REFERENCE 0 -=----"--- slahstatstatatatstatatstebetaiatetatatataanabenataiateeenete 


i-- Siepte Type =! 


ie os a lS 


="-"- Record Identifier “"" REFERENCE 7" 


If avariabtea is declarec to have a type cf reference in a 
Varjabie Declaraticns a descriptor is ailacated for it on the 
Descriptor Stack. {Tt originadly has no data associated with it» 
dur can be REFERed to some data spaces If <Simptle Type> has a 
constant €nonwzero) tLergthes then the reference variable is 
coerced to have the specified type and lengths» and any REFERS can 
aiter onty its data address» but not its type or tengthe © If 
<Siaple Type> is just BIT or CHARACTER without a tength» then the 
tyoe serwes only aS a cemmernt» unless the INITIALIZE_REFERENCES 
cemepiter control option is Sete {See INITITALIZE_REFERENCES in 
the COMPILER CONTROL Section). 


[It is the programmer's responsibility to gquarantee that a 
reference variabte has been REFEKed to valid data space before it 
is use@de The use of an uninitialized reference variable will 
produce unpredictable resutts. 


If a field is dectared tc have a type of reference in a Record 
Declaratation»y 96 bits are allocated. Ahen it is REFERed» a 


symbolic form of the descriptor is stored in the fiald. The 
setection of a field that is a reference type will cause an 
automatic dereferences the descrirftor can only be accessed with 


a Refer statement. 
The second form of Refererce Tyre declarations»e With REFERENCE 


specified last instead of first» is includec only as a means of 
ecnversion from SDL to SDL2. 


Exampte: 
DECLARE 
TEXT REFERENCE CHARACTER» 
SOURCE CHARACTER (€80)3 


2EFER TEXT TO SOURCES 
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Pointec Iype 


=2--- POINTER =" Sisple Type tet tstanast testes esas encase sent 


The <Simpte Type> must be a constant tength type. A field of 24 
bits will be allocated to contain the address of the REFERed data 
Spat ee A pointer variable has no data associated with it until 
it is REFERed to a data item. Whenever a peinter is used it wittl 
automaticaily be dereferenced to the fielda pointed to by the 


pointere There is no protection if a pointer is REFERed into 
dynamic memory and that page gets roiled out of memory. The main 
use of pointers is for the MCP. For most other apotlications» 


reference variables should be used instead of pointers. 


Framptle? 


RECORD RS_NUCLEUS 


MCP_BiT BITCi>» 


RECORD HINTS_FORSM 


FIRST_9Q POINTER RS_NUCLEUS» 

MCP_RSN POINTER RS_NUCLEUS» 
DECLARE 

HINTS HINTS_FORM>» 


ACTUAL _RSN RS_NUCLEUSs 


REFER HINTS»MEP_RSN TO ACTUAL_RSN3o 
HINTS»MCP_RSN-MCP_EI Ts=TRUE? 
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File Pointer Type 


eee PILE POINTER. (SSeS ee eee Se ee == SSS Se SAS i 
j { 
f== € == KIND = = =" Device s~ 3) ="1 


A file pointer is used as a programmatic reference of a file. A 
Pefer statement is used to assign ae togical file to a file 
pointer variable. The file pointer may then be used in any 
context where a file is allowed. For exampler file pointers are 
adlowed tin any [/0 statement. File pointers may also be passed 
as parameters» whereas conventional files may note Notes 
nowevers that file pointer paraseters may not be passed by vatue. 


[Tt is the programmer’®s responsibitity to guarantee that a file 
pcinter has peen REFERed to a valid file before it is used» since 
I/O statements with an unassigned file pointer wilt produce 
unpredictable results. 


Device can be any tegat device kind. (See the KIND file 
attribute in the INPUT/OUPUT Section). The default device kind 
is DISK. The Kind specification is required to distinguish port 


and remote files from other kinds of files.» Port and remote file 
poeinters may only be REFERed to port or remote files. Simitarty» 
fide pointers which are net dectared as port or remote say not be 
Referred to port or remote files. These restrictions are 
required because the compiler must generate different 1/0 
ccmmunicates for port and remote files. 


File painters are not atltowed as array elements» record fields» 
or function return values. 


cxamote = 

FILE Fi (KIND = DISK)» 
F2 (KIND = PRINTER)?» 
F3 (KIND = REMOTE); 

DECLARE (X» Y) FILE_POINTER> 
2 FILE_POINTER {KIND = REMOTE)» 
BUFFER CHARACTER (803 
PROCEDURE TALK (F)3 
FORMAL F FILE_POINTERS 
FeRECORDSIZE z= 803 
OPEN F3 


ARITE F CBUFFER)> 
CLOSE F LOCKs 
END TALK> 
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PROCEDURE €OSSIP CF) . 
FORMAL F FILE_POINTER CKIND = REMOTE)? 
WRITE F CBLFFER D> 

READ F CBUFFER)D:; 

END GOSSIPs 


BUFFER z= "3 

REFER X To Fis 

REFER Y TO F 2s 

REFER Z T0 F3> 

BUFFER = "HI THERES 
TALK UX)e 

TALK CY¥)s 

GOSSIP (C2), 


Note that TALK €Z)» GOSSIP (Y¥)» or REFER Z 10 F1 are not attoweds 
and with be syntaxed by the compiler. 
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i--- REFERENCE <-->] 
i j 
tee" POINTER 29> 1 


2 es APT Ay LOU. <4: )UISs erases eee anenem Scalar: lyoe "-"""-- o 
1 1 ] ! 
sss > = ees I- Paged Part -] 

Paged Part 

ome PAGED “orf ¢ “==. Elements Per Page <<<“ )  <—<e2--- al | 


An array is a cottection of individual elements which are ali of 


the same Scatar Type. Fach etement of the array can be 
referenced by using the name of the array variables fotltowed by 
the element number enclosed in parentheses. Elements are 


numbered from 90 to Array Gound = 1. 


Array Sound and Etements Per Page can range from 1 to 65535. 
Elements Per Page wili be rounded down to the next tower power of 
2. An asterisk may be used in place of Array Bound only within a 
formal parameter dectaration»s in a REFERENCE or POINTER array» or 
a giobal dynamic array {see ALLOCATE). 


[lf Paged Part is specified» the array witt be attlocated to 
dynamic memorye Pages wilt be altocated only as necessary» and 
the bounds of the array are allowed to increase past Array Bound. 
However Array Bound wilt te used to detertine how much memory 
wild be initially assigned to the nonovertayable page table for 
the array. Paged arrays are not attowed within fermat parameter 
declarations» REFERENCE or FOINTER array types. 


Exampte: 


DECLARE 
A £10) BOOLEAN» 
P €256) PAGED €32) CHARACTERC30)>3 


Programs using paged arrayS may find it necessary to increase 
Qynamic Memory anc/or Virtual Disk above the default vatiues 
supplied by the compiler. 
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Rséterence Arrays 


System programs sometimes need to treat an area of memory as a 
large arrave A reference array allows the programmer to set up a 
reference to an area cf memcry at an arbitrary address» with any 
entry sive up to 8KB and any nurber of entries up to 16777215. 


Nonevy some» or atl of the following attributes may be included in 
the deciaration of the array? Bound Cnumber of entries)» stement 
type» and element size. For POINTER arrays» ali of these 
attributes must be specified at declaration time-"none may vary 
dynamicatly. For REFERENCE arrays» any attributes missing from 
the declaration may he chanced using the appropriate standard 
procedures described below. 


For each REFERENCE array dectared» an array descriptor is 
allocated. Any attributes specified in the declaration are 
automatically used to tnitialize this descriptor (Cregardtess of 
the setting of the INITIALIZE_REFERENCES dotiar option)» and may 
mot be changed. Any attributes not specified are initialized to 
the same default vatues used by the INITIALIZE REFERENCES doitar 
option and if the bound is vwarying then it is initialized to 
7erae Later these varying attributes may be changed by the 
programmer» using the REFER_ADDRESS» REFER_TYPE» REFER_LENGTH or 
FEFER_BOUND standard procedures-» For each POINTER array 
declared» a 24-bit address fietd is aidtiocated. Gnly the 
REFER_LADDRESS orocedure is atlowed with pointers. REFERENCE or 
PCINTER arrays are not allowed in the REFER statement. 


REFERENCE and POINTER arrays may not be PACE» nor appear as 
function return vatues or formal parameters. Further» REFERENCE 
arrays are not aliowed as record fieitds or array alements. 


As an example of a reference array» suppose a programmer wants to 
set up a reference to an area of memory to be treated aS an array 
of some arbitrary number cf elements» where each element is to be 
180 characters in Length» If the address of the area is BUF_ADDR 
and the number of elements the area with hotd is BUF_SECTORS» 
hen says 


DECLARE RA REFERENCE (*) CHARACTER (18993 
REFER_ADORESS CRA» BUF_ADDR)3 

REFER_BOUND CRA» BUF SECTORS) 

REFER THIS_SECTOR TO RACID3 

ete 
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TYPE DECLARATION 


la alealoslatentatntetatetatatatatetatetatene nt aitiliatatetelatate aatatatatetatetatetel 
1 | Y 
a>, (APE. Same =” “Lype  Tdentis.ier Soe =. see Syne Sesser 4 


The Tyne Declaration ailows an identifier to appear as a Type 
inside a Variabte Declaraticn» Procedure Declarations Record 
Declarations or Type Declaration. Dynamic types are not altowed. 


Exasple: 


TYPE STATE_INDICATCR = MEMBER OF STATE_SPACE> 
: ADDRESS = BIT (24)» 
STATE_VEC TOR = (8) STATE_INDICATORS 
DECLARE STATE STATE_INDICATOR>» 
VECTOR STATE_VECTOR> 


IF VECTOR C1) IN TERMINAL_STATES THEN TERMINATE C1)s 
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RECORD DECLARATION 


Se UE COR | Sa Unstructured Record  --7*-"-- ee re 
4 1 
i=-~ Structured Record <“-"1 


The Record Dectaraticn is 4 convenient way of mapping the tayout 
of a structure. It altows variables and fields within other 
records to be given structure. (See Setector in EXPRESSIONS 
Section and WITH STATEMENT in STATEMENTS Section for referencing 
of subfields). 


The structured record declaraticen is included in SDL2 only as a 
means of easier conversion of the SDL PL/I styte structures. The 
unstructured record declaration 18 the preferred form. 


Unstructured Recorg 
=== Record Identifier oc" "-"" Field List sess sorsssteree---| 


Field List 


oe aia rcs Fieid -idantitier: 8" Pyoe “Ss ceseessese=-2= ae aan 
io 1 1 
1 odn- FILLER soto 227-9-1 i 
! 1 
lose [ == “Cospatial Pistd List. =" fo sSsSrssees cachet | 
4 


| 
I--~ Field Identifier =-- RECORD --- Field List «~~ END ~--1] 


Csspatial Eield List 


assem (“Fiett List "<=<<<« aoe Se a SS ee aS See SS aS ea a a oa sae | 
Fields may be declared caspatial. That is» each field list 
remaps the other cospatiat field lists» end the tength wiil 


always be the Length of the longest fieid List. 
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Example: 


RECORD SYSTEM _DESCRIPTOR_FORM 


IN_USE BITC 1)» 
MEDIA BITC1)>» 
Lock BITC1)» 
IN_PROCESS BITC1)> 
INITIAL BITC1)> 
FILE_OBJECT BITC1)> 
DK_FACTOR BIT(3)» 
SEG_PG BITC(7)> 
TYPE AITC4)> 
{ ADDR BIT(36) 
1 FILLER BIT(1i2)> 
CORE BIT(24) 
le 
LEN BIT(24)3 
DECLARE 


SYSTEM_OESCRIPTOR SYSTEM_DESCFIPTGR_FORMS 
IF SYSTEM _DESCRIPTOR~MELIA 
THEN READ_TO_MEMOR Y> 


Siructured Record 


scowecene JL -- Record Identifier <-"- Type -“"= x» =a"=e===> 


| 1 
“~"@= Level Number =~" Structured Field Identifier -- Type ~----1 


Structured Fieidg identitisc 
eweeee~-= Identifier ««"7-7"""- wee eee ewe esse ene Sa lalee liad etetatetietadal | 

| i 1 14 

1 d-- DUMMY -=--= =4 Im- REMAPS -- Identifier <-"1 1 

1 1 
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SANTA BARBARA PLANT 
Example: 


RECORD 01 MEMORY_LINK BITCMEMORY_LINK_SIZE) >» 
02 ML_DISK 
92 ML_CRCUP 
03 ML_POINTER 
03 ML_JOB_NUMBER 
03 ML_TYPE 
03 ML_SAVE 
02 ML_SIZE 
N2 ML_PRIORITY_FIELD 
03 ML_DK_INTERWAL 
93 ML_CUFRENT_DK_INT 
03 mL_INCOMING_PRIGRITY 
03 ML_RESIDENCE_PRIORITY 
04 ML_RP_WHOLE 
O04 ML_RP_FRACTION 
02 ML_FRONT | 
02 ML_BACK 
O02 ML_USAGE_BITS 
03 ML_FREVIOUS_SCAN_TOUCH 
03 ML_CURRENT_SCAN_TOUCH 


Pade 


DSK_ADDR> 


BITC4/)>» 


ADDRESS» 
BITC16)» 
BIT c6)> 
BITC1)» 
BITC24)> 
BITC30)>» 
BITC10)- 
BITC10)>» 
BIT(5)» 
BIT(5)» 
BiTC4)» 
BITC)» 
BITL 24)» 
BIT{24 J» 
BIT(2)» 
BITC1)» 
BITC1); 
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The above structured record in the preferrec form appears as? 


RECORD MEMORY_LINK 
ML UCISK 
ML_ GROUP 
ML_FOINTER 
ML_JOE_NUMBER 
ML_TYPE 
ML_ SAVE 
END » 
ML_SIZE 
ML_PRIGRITVY_FIELD 
ML_UDK_INTER VAL 
ML_CURRENT_DK_INT 
ML_ INCOMING PRIORITY 
ML_RESIDENCE_PRIGRITY 
ML_RP_WHOLE 
ML_URP_FRACTION 
ENC 
END» 
ML_LFRCNT 
ML_ BACK 
ML_USAGE_BITS 
ML_PREVIGUS_ SCAN TOUCH 
ML_CURPRENT_SCAN_TGUCH 
ENDs 


DSK _ADDR» 
RECORD 
ADDRESS» 
BIT(16)> 
BIT{(6)» 
BiT¢i) 


BIT({24)> 
RECORD 
BITCLO)» 
BIT(19 d» 
BIT(5)» 
RECORD 
BITC4)» 
BIT1) 


BITC24 de» 
BIT{24)» 
RECORD 
BIT(C1)» 
BITC1) 


CONSTANT MEMORY _LIN® SIZE = TYPE_LENGTH CMEMORY_LINK)DS 
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SET DECLARATION 


weses SET ----eee-- Set Identifier ----~- ww cece sere nenann- stalaiaiatenetetaie > 


Se ea a ee a ee ee eee oe 
i i 4 i 
I-- € == Set Size “" J) =<% Jn = MEMBER *" € =" Member Size =~ ) -~1I 


j<c ee: eS ee Se ee | =a , ones oh ee ee ee ee ee ee et coal | 
i i 
>pere= = ==-== Member Identifier sts ete "+--- lela tetoalaleiasheielenteentetetetetateteteted | 
i j 
I-- = == Member Value -~i 


The Set Dectaration is used to define the members of a sete Each 
memder i858 given.an orcinail valuer in ascending order» beginning 
with zveroe (Set members are very simitar to Pascat*s Scatar Tyne 
constants). 


CHARACTER _SET is a predefined Set type whose 256 members are the 
EECOIC character set. The oredefined type EGOLEAN is a member of 
the predefined Set = FALSE» TRUE. Hence FALSE has the value 3 
and TRUE the vaiue i. : 


See also MEMBER OF in TYPES Section. 


Example: 


SET SYMBOL_KIND_LSET = 


INVALID- 
NUMBER» 
STRING» 
IDENTIFIER> 
SPECIALS 
DECLARE 
NUMERICS CHARACTER_SET> 
ALPHAS CHARACTER_SET>» 
SPECIALS CHARACTER_SET> 
SYMBOL MEMBER OF SYMBOL_KIND_SET> 
QGPERANDS SYMBOL_KIND_SET>» 
CH CHARACTTERC1 Is 
OPERANDS 


>= CNUMBER» STRING» IDENTIFIER I> 
NUMERICS 2= £870"%> "1% > M2%—> MAM ey MGM, MSM, MHo™ MT» WB y BINDS 
ALPHAS t= £*A" TO "I"s "J" TO "Re "S" 10 "LZ" Ie 


IF CH IN NUMEPRICS 
THEN SYMBOL 2= NUMBER» 
ELSE TF CH IN ALPHAS 
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THEN SYMBOL <= IDENTIFIER? 
ELSE IF CH = """" 

THEN SYMBOL t= STRINGs 
ELSE IF CH IN SPECIALS 

THEN SYMBOL ¢= SPECIAL; 
ELSE SYM30L 2= INVALID; 


IF SYMBOL IN GPERANDS 
THEN GET_OQPERANOS 
ELSE CASE SYMBOL OF 
SPECIAL : GET_SPECIAL3 
INVALID 2 ERROR C™INVALID SYMBCL")3 
END CASE; 


Note that the compiler performs some checking to see that sets 
and members are not accidentaliy misused. A member declared 
#ithin a Set Declaration betonas onty to its parent sete Any 
singie character value can belong to any character sete Fixed or 
Dit values can belong to any bit string» or any constant set 
consisting only of fixec anc bit members. 


See also CHR and ORD in STANDARD FUNCTICNS Section. 


Qptional Container Sizes ang Megber VYaives 


Syste@ programs which menage persistent disk structures» or which 
interface with hardware using predefined bit formats» may 
Sometimwes need to specify exact fieid widths cr explicit member 
values for setse In these cases» the compilter*®s default values 
or container"size may be overridden by the programmer»y by 
including Set size» Memter Sizer» or Member Value in the SET 
declaratione 


Note that 31f one Member Value is specified» then alt Member 
Values must oe specified. Also» the Member Vatues must be given 
in ascending ordere 


For example: 


SET review_kinds C128) MEMBER (@) = 


poor = QO» 
or = 4» 
good = 6» 
great = 9» 
rave = 19>» 


RECORD review-record 
responses review _kinds» 
my_ opinion MEMBER OF review_kinds» 
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In this record» the “respenses”™ fieid widfl be 128 bits wide» and 
the “mytopinion”™ field will be 8 bits wide. 
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VARTASLE DECLARATION 


se= DECLARE ““S3eeeeeseee= Tdentifier “ss8s=-sse""": Type “=i 
i i 
Jm-~ € = Identifier List = ) = 


Lcentifier List 


seer etseesetsenn-- eecse= Identifier cecrrt tr eneetnrecnn nnn nen] 


Tne Oectare Statement atlocates memory storage for variables and 
defines their type. 


Tf the type size and/or the array bounc of <Tyne> is a 
nonconstant expression» then the declaration will be considered 
a dynawic declaration. CLynamic variables are not atlowed = at 
Lexic tevel 0. Dynamic variables wilt be allocated a descriptors 
and snace will be altocated for the variables on procedure entry.» 


Paged arrays are atloweda at any texic teval. They will be 
allocated a descriptor» and their memory space will be ailocated 
from dynamic memory as needed. 


Static variaogles will be allocated space in memory and will not 
have a descriptor. 


Reference variables do not have space allocated» but get a 
descriptor allocated that may be REFERed to some data space. 


Examote;: 
DECLARE 
I FIXED» 
CJ» K) CHARACTERC1i0)» 
4 (10) FIXED» 
R REFERENCE FIXED» 


P €1024) PAGED €16) FIXEDs 
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PROCEQURE DECLARATION 


“--- Actual Procedure Ceclaration s st st ests ce sens eee wen nee wes | 
H 1 

i=" FORWARD ~----r=- Procedure Head --~1 

i ] 

f=- EXTERNAL -<1 


Actual Poocedure CLeclaration 


“o= Procedure Head “<= -<s=<<+<<-=< so a a en a a a te ===> 
i j ] i 
i-- Dectarations “71 i-- Body -71 


>"- END -== Procedure Identifier ws "..-.%77 ad “SSS ese Ss ===] 


Procedure Head 


“== PROCEDURE =--- Procedure Identifier st tet tess e terre =--= a a} 
> om et om wm mw 2 a as Sam a eo ae MBMeaemeiageaiwa oe ewenmags SBS wea ae ne wae eer ee eSB eee > sw ewe» 
1 1 1 ] 
I-- Parameter List ==] {-- Type 71 
> 5 a oe | ew es we ee ae ae ee ee ee ee ee es = ee ee ee ee a ee ee ee ee ee eee ee ee ee ee ek ke ee eS UE mw | 


i- Formal Parameter Ceclaration -"™ 3 =] 


Parameter List 


wnewence = € <2" Identifier List “77 ) weet enterennreecce---] 
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Forfat Parameter Lecléretion 


I<o=-- we eewee sree ---- eae Ft ew ener en enon en ener eeen=|] 
r j 
I 
i 


q<: ee ee case ee ee > caliente tentianlentic hentia tentesh intend | j 


, | 1 4 
see --= FORMAL soto een -----= Identifier "197 ---- Type ~-"--"! 
1 1] 1 
I~ FORMAL_VALUE “1 I- © + Identifier List - ) -4 
Identifier List 
[cme psa eaan] 
i 1 
Sal aati ents lan ielonlealontoctaien tenia leita Identifier *7-"--  loniateieteleteieaton aeoneen =| 


The Procedure Declaration is used to define a program fragment 
and to associate it with an identifier» so that tt can be 
activated by a Catil Statewert or Typed Procedure Catt. 


Declarations within a procedure oanly have the Scope of that 
procedure Ci«@. when the <END Procedure Identifier> is 
encountered they are no tecnger accessible to the programmer). If 
a procedure needs to De caldied before it is declared» a FORWARD 
declaration must be made to define it and its formal parameters. 
[f the procedure 38s declared in another program unit (see 
SEPARATE COMPILATION)» then an EXTERNAL declaration 15 needed. 
EXTERNAL declarations are onty aliowed at Lexic tlevet 0. 


Procedure declarations may te nested to a maximum of 15 Levels. 


The order of declaration of format parameters must match the 
order in <Paramater List>. 


If a parameter is decilarec FORMAL_VALUE» a copy of the data wilt 
be made» and the oricinal data wilt te preserved. Arrays and 
file pointers may not be declared FORMAL_VALUE. 


if a format parameter is a Reference or Pointer variable» its 
address or tength may be adjusted inside the procedure via a 
REDUCE or REFER statement. However these adjustments wild anty 
affect the parameter within the procedure body» and vanish on 
procedure exit. 


If @ parameter is dactared zs an Array» then any actual argument 
passed to the procedure must aiso be an Array» though it need not 
be of the Same type or Sizee 
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Note that no type ccercion is done for either FORMAL or 
FORMAL VALUE parameter se unless they are declared as Records. 
For non "Record type parameters» actual argum#ents passed in a 
procedure call wilt mairtair their criginally dectared type» and 
the type from the parameter deciaration wild be ignored. No type 
checking iS done untess the parameters are Sets or Members» in 
which case a syntax error witt be given if the actual argument is 
not of the same type as the corresronding parameter declaration. 
If a parameter is decitiared 25 a Records then any actual argument 
passed to the procedure must be of the same Lengths though it 
need not be of the same type. 


Example: 


FORWARD PROCEDURE ACP)s 
FORMAL P FIXED» 


PROCEDURE BP )>s 
FORMAL P FIXEDs 


ACP >» 


END B3 


PROCEDURE ACP Js 
FORMAL P FIXED>s 


Bit? ds 


END A> 


PROCEDURE MAXCX*Y) FIXED, 
FORMAL (X*Y) FIXECDs 
IF X>Y¥ 
THEN RETURN X35 
ELSE RETURN Ys 
END MAX> 
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STATEMENTS 
BODY 
Te ee Statement List i SE Ae ON ae ea ee ee | 
STATEMENT LIST 
[<n eeenen-n- alate atatatatatatateaetatatatetabatats ' 
i 
Pe oe ee ee eS ee ee EE Ee Pe re ee ee ee ee 2 ee ae eanm awesome new eee eee | 


p== Assianment Statement ~~] 


i-- Calt Statement 
i-- Case Statement 
im- Do Statement 

i-- For Statement 


i-- Tf Statement 


j 


ee Refer Statement "=." "" 
we Reduce Statement pauses 
ice Repeat Statement “""".* 
i= Return Statement «“*"-"" 
ize Stop Statement s*"""-" 
_ Swap Statement <«*"""*""" 
ie Undo Statement  ™**"" Ses) 
j i 
[== 


White Statement  “7*7"*7.-] 


With Statement 
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ASSIGNNENT STATEMENT 


Gl Selector = a 2 a = mam a - Expression oe oe ae ee te eee 


The Assignment Statement is used to store a value into a 
variable. If poth fields are of type Character» then the move 
widi be done from Left to right with blank "filling on the right 
if the destination field 1s longer than the Source fieid. If 
either of the fietds is not of type Character» then the move witt 
be done from right to Left» with zero~filling on the left if the 
destination field 13 loncer than the source field. 


Care shoutd be exercised when the source and destination fieids 


overtape Since data is moved only three tytes at a time in the 
direction indicated oy the operand types. To avoid unexpected 
results» the destination field of an overtapping assigqnment 


should be parenthestizedr ege SUESTR CA» 1) t= (A). 


See aise Put File Attribute tin INPUT/OUTPUT Section. 


£Exampte: 

DECLARE 

CA» Br C) FIXEDs 
Az:= B # C> 
DECLARE 

SIGNUM BIT (€24)> 

LITTLENUM BIT ©(16)» 

SIGSTRING CHARACTER (5)>» 

LITTLESTRING CHARACTER (€2)3 
BIGSTRING ?= “ABCDE"> 
LITILESTRING z= BIGSTRING;s % Sets LITTLESTRING to *AB" 
BIGSTRING z= LITILESTRING; % Sets BIGSTRING to “AB : 
BIGNUM = a7632512a3 
LITILENUY *= BIGNUM?s % Sets LITTLENUM to 2332513 
BIGNUM 3= LITTLENUMs % Sets BIGNUM to 30032519 
BIGSTRING := * 3 % Sets BIGSTRING to " " 
BIGNUM 3s= ™ "3 % Sets BIGAUM to 309004028 
BIGNUM 3= D>- % Sets BIGNUM to 23090000023 
LITTLESTRING t= Os 4 Sets LITILESTRING to 2000023 
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CALL SLATEMENT 


= Procedure Identifier “«s*""--7 “oman 


is € ~~ Parameter List == ) =" 


Parameter List 


The Cail Statement is usec ta activate an untyped procedure that 
has Geen declared with a Procedure Declaration. There must be an 
Expression in the Parameter List for every Format Parameter 
dectared. 


Example: 


Az= MAXCI» 33> 
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CASE STATEMENT 


e=«~-= Unlabeled Case Statement <«""." A Sm ee ee a ee a a =~| 
i { 
i-~ tcLabeled Case Statement <“<«71 


Unlabeled Case Statement 


s-* CASE = Expression “= » “== Statement List ----" S228 > 


SSeS SSS Ss SSS Se SSeS SSeS eS oss ae on ae we= END CASE s37-=---] 
i 
-~ ELSE =~" Statement <- 4 


The value of Expression is used as an index into Statement List. 
>uppOSe tnere are N Statements in Statement Liste If Expression 
has avatue between 0 and Nm1i» then the cerresponding Statement 
will be executed. If the value of Expression is out of range» 
then the Statement fcltowing the ELSE wilt be executed» or if 
there is no <ELSE Statement>» then a runttiwe error will be 
generated. Once the selected Statement has been executed» 
controt is passed to the statement fottowing <END CASE>» uniess 
the selected Statement was an Undo or a Return. 


Examples 

CASE Ts 
HEX 3= "OMS 
HEX s= "1%"% 
HEX s= "25 
HEX s= "3"%3 
HEX s= "4"> 
HEX s= "5";5 
HEX 3= "6"; 
HEX = "JS" 
HEX 3:= "8"; 
HEX 3= "9"> 
HEX 2= "A™> 
HEX ?2= "B"—s 
HEX s= "C"> 
HEX = "Ds 
HEX s= "E"% 
HEX i= "FR; 

END CASES 
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Labeled Case Statement 


wr--- CASE ==" Expression 7") OF  catecenerceenn- seeeen---> 


>==== Labeled Statement List c-c-+e7--"-"- END CASE -92-----1 


Labeled Statement List 


4 
i 
f 
i 
i 
t 
r 
iD 
Co 
4) 
= 
‘om 
int 
“rT 
i 
i 
a 
i 
os 


S52. <Gtatewent. “Se 9° <asese=se> 


eas TG =" Constant a=] 


The Labeled Case Statement selects for execution that statement 
whose Label is equal to the value of Expressione If no statement 
has a Label that 15 ecual to the value of Expression» then the 
Statewert fotlowing the ELSE is executed» or arunttime error is 


generated if there is no «ELSE Statement>. After execution of 
the selected Statement control fasses to the statement following 
<END CASE>» unless the selected Statement was an Undo or a 
returne 


fach Label aust be within the range 0 te 255» and may he of any 
type. If T3 is used in a case label» the first constant must be 
less than or equal to the second constant. Duplicate tabeis are 
not allowed. 
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DECLARE 
CH CHARACTERC1)» 
CH_TYPE MEMBEF OF TYPE_SETs> 


CASE CH OF 
“1" TO "9" +: 
CHLUTYPE *= NUMERIC; 


CHUTYPE 32= SEMICCLOCNs 


n,™ 


CH_TYPE = COMMAS 
wy, bala aid be 
CH_TYPE := PAREN3 
ELSE 
CH_TYPE = UNKNOWNS 
END CASES 
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DG STATEMENT 
a oa -— mm ——_ a. oe mm a ee ee ane aw ew , -— =<. > 


I-- Do Group Idertifier “71 im-~ FOREVER ~~] 


oes. Statewent List: === “END ““Ses<s<--<<s0>< Speco esse Se= SS = 1 
i"- Do Group Identifier -7] 


The Go Statement aitlows a tist of statements to te grouped 
together. Tf FOREVEP is present controt witli be passed back to 
the first statement from the end of the statement List. If 
FOREVER 315 not present» then control witl be passed to the 
statemert following the <END Do Group Icentifier>. The Do Group 
can be exited with an Undo or Return statement. 


Example? 


DECLARE 
T FIXED» 
A CARRAY_ SIZE) FIXED; 


ITs= 03 
DCG INIT_LA FOREVER; 
IF I = ARRAY_SIZE THEN 
DOs 
(3= OF 
UNDO INIT_As 
ENDs 
ACT)s= I> 
is= I # i> 
END INiIT_As 
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FOR STATEMENT 


“-- FOR  -"-- Arithmetic For Range “*".- Statement w7.r777] 
i i 
i-- Set Member For Range 71 


Arithmetic Eor Range 


“~- Control Variable «77 2= --* Start seer TO eter Stop --71 
j 1 
{-~ DCWNTO -~1I 


The Control Variable must be a simpie variable of type Fixed. 
Start and Stop must be Expressionse and will be coerced to be of 
type Fixed. Start and Ston with be evatuated and then Control 


Variable wilt be initialized to the value of Start. Statement 
wilt be executed for each vatue of Control Variable between Cand 
inclucirg) Start anc Stooge The Controt Variable will be 


incremented (T0) or decremented (CDOWNTOd by one after each 
iteration of the toop. 


Examples 
DECLARE 
i FIXED» 
A (109) FIXED? 
FOR [2= 59 TG 4 
ACI) s= 13 % wiidt be executed 5 times 


FOF I= 99 fOWNTO O 
ACI) 2= O07 2% wilt be executed 100 times 


FOF I2z= 2 10 1 
ACI) 2= 10003 2 with never be executed 
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aek Member Eor Bangs 


“== Cortrot Variable -"- IN === Set Expression s 37.37% "°"7" om mm 


The Control Variable must be declared as a member of a s3te The 
Set Expression can be ary Legat set expression of which Control 
Variable is a *membere For each member of Set Expressions 
Statement will be executed with Centrot Variable set to the vatue 
of the member. 


—xampte: 


SET S = APPLE» BANANA» ORANGE» PINEAPPLE>s 
DECLARE 

FRUIT MEMGER OF SP 

MY_FAVORITES 3s 

YOUR_FAVORITES a7 


MY_FAVORITES 


z= CQORANCE» BANANAI> 
YOUR_LFAVGRITES <= 


CCRANGE» APPLEI> 
FOR FRUIT IN MY_FAVORITES UNICN YCUR_FAVORITES 
EAT CFRUIT)> % wWwiitl eat apple» banana 
4 and crange once for each 


Note =; 


Any modification of the Set Menber Control Variable oar the Set 
Exoression within the teop will not aiter the Looping. Hence? 


FOR FRUIT IN MYLFAVORTITES DGs 


EAT CFRUIT)D> % watt still eat banana 
MY_FAVORITES s= (13 2 and orange once for 
END; % each 

FOR FRJIT IN MY_FAVORITES DOs ZZ wilt stilt eat banana 
EAT CFRUIT > x and orange once fer 
FRUIT s= APPLE» % each 


END? 
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LF STATEMENT 


one TF --= Expressior -* THEN =" Siatesent “"<<=--=+<- “"> 


> 3S 2 ew ee ee a we a om Sm en Se an eS ee eee ee ee ee oe a a a a Oe eae ae ee a oe 1 


i H 
j-- 3 “= ELSE =- Statement 74 


The Statement foltowing the THEN is executed if Expression yields 
a true result. If Expression yields a false result than the 
Statement following the ELSE is executed» if the ELSE is present. 


When using nested IF statementse an ELSE widt be matched to the 
closest previously unmatched THEN. 


Example: 


DECLARE 
MAX FIXED» 
VALUE_1 FIXED» 
VALUE_2 FIXED> 


IF VALUE_1 >= VALUE_2 THEN 
MAK3= VALUE_i3 

ELSE 
MAX2= VALUE_23 
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REDUCE STATEMENT 


“-~ REDUCE -- Object Reference Variable reteset eset sts en- > 


Im SETTING " Result Reference Variabie <=! 


Paes UNTIL reer FIRST Sess SSse5- i RASS sees Expression <--> 


se 37 =eem= ON ECSLZCYCLE w“-"=— Statewtent "1 
j=" ON EDS i<eHemsee<] 


The Reduce Statement is an efficient wmethoc of scanning character 
strings» The execution of 2 Reduce statement does not change any 
datas the reference variables are adjusted to point at a 
supstring of the origingat string. The Recuce statement scans 
from teft to right if FIRST is specified and from right to teft 
1f LAST 185 specified. After execution of the Reduce statement 
the Object Reference Variable is left describing the substring of 
tne orignal Object Reference Variable that meets the cordition of 
the reductions 


If the SETTING option is specified the Resutt Reference Variable 
will describe the substring of the original string that did not 
meet the condition of the reduction. 


{f the condition cf the reduction is = or <>» the Expression must 
be a character string. It should be noted that only the first 
three . characters of the Expression are cempared to the strings 
but the dength wild be used to test for end of string conditions. 
If the condition of the reduction is IN» the Exoression must be a 
SET of characters (CSee SET CECLARATION Sectior). 
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Tf ON EQS_CYCLE or ON EOS iS Specified» Statement wili be 
executed when the tergth of Qbject Reference Variabite has been 
reduced to zero. After completion of Statements controt wilt be 
passed to the next statement if the ON concition was EQS» or if 
the CN condition was EQS_CYCLE and the tength of ODject Reterence 
Variabte ais stidi zero. If the ON condition was EOS_CYCLE and 
the Object Reference Varizble is not of tlength zero after 
executing Statement» then control witt be passed back to the 
Reduce Statement. 


Example: 
DECLARE 
NUMERICS CHARACTER_SET 
ALPHAS CHARACTER_SET 
SQOURCE_TEXT CHARACTERC7T 2)» 
TEXT REFERENCE CHARACTER?» 
TOKEN REFERENCE CHARACTERS 


PROCEDURE NEXT_LRECORDO> 
READ SOURCEFILE CSOQURCE_TEXT)> 
FEFER TEXT 10 SOURCE_ TEXT> 

ENO NEXT_RECORDs 


ALPHAS s= CHAR_TAELE C™ABCDEFCHI JKLMNOPOR STUVWXYZ")3 
NUMERICS t= £70" 10 "$"13 
REDUCE TEXT UNTIL FIRST <> "7 "3 % A 
ON EOS_CYCLE NEXT_RECORDS 
IF SUBSTR TEXT» C+ 1)? IN NUMERICS THEN 
REDUCE TEXT SETTING TCKEN UNTIL FIRST NOT IN NUMERICS$ % B 
ELSE IF SUBST® CTEXT» O» 1) IN ALPHAS THEN 
REDUCE TEXT SETTING TOKEN UNTIL FIRST NOT IN ALPHAS? 2 ¢C 
ELSE DO SPECLAL_CHARACTERS 
REFER TOKEN TO SUBSTR CTEXT» O» 193 
REFER TEXT TO SUBSTR CTEXT» 133 
END SPECIAL_CHARACTERS 


Assume SOURCE_TEXT contains ™ IF X = 999 THEN "and TEXT 
nas been refered to SOURCE_TEXT. After execution of the REDUCE 
at line ZA» TEXT wild describe “IF X = $99 THEN ". As the 
first character of TEXT is tin the set ALPHA» the REDUCE at Line 
42C» will be selected» After execution of this statements» TEXT 
will deScribe ™ K = 399 THEN " and TCKEN wilt describe 
ways 
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REEER STATEMENT 


ere REFER. Fe Retereng. = TOs “Reteree “SSS 4=sesee2 ess 1 


The Refer Statement is used to change the address Cand possibly 
the length and type) of a reference variable» reference field» 
pointer variable» or pcinter field to map the data of another 
variable. It is atso used to assign a file to a file pcinter. 


If the Referent is a Reference or Pointer variables then Keferee 


must be an Address Generator. Onty untyped or zero~length 
reference variables can have their Length and type modified by a 
refer statement. Pointers and typed reference variables wilt 
aiways retain the type and tength from their original 


declarations and may onrty be REFERed to objects with the same 
fengtha 


If Referent i585 a Fite Pcinter» then Referee must be a File. 


Note? REFERENCE or PCINTER arrays are not allowed in the REFER 
statement. 


Example? 


FILE INFILE (CK IND=DISK D> 


DECLARE 
F FILE_POINTER> 
TEXT REFERENCE» 


BUFFER CHARACTER (€80)> 


REFER TEXT TO BUFFERS: 
REFER F Tc INFILE> 
Notes 
KEFERENCE or POINTER arrays are not allowed in the REFER statement. 
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REPEAT STATEMENT 
“~~ REPEAT -" Statement List =" UNTIL =~ Expression 7-71 


Statement List will be executed repetitively untit Expression 
returns atrue result. The exit condition is tested at the end 
of each Loops so Statement List will be executed at Least once.» 


Example: 
REPEAT 
DO_SOMETHINGs 
IF END_CONDITION 
THEN DONE s= TRUES 


UNTIL DONE> 
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RETURN STATEMENT 


oc8n= RETURN ses 08 cee e nase ae ecm em ate Set em ee Sees semen a | 
| | 
{-- Exoression 7! 


The Return Statement altows an explicit return from a procedures 
If the procedure is typed then Expression must be present and 
Wiil be the vatue returned from the procedure. If the procedure 
is not tyned then the presence of Expression is an errore An 
implicit return is generated by the compiter at the end of every 
procedure. [f the procedure 18 typed a value matching the 
procedure*s type is returred €0 if Fixed» Bit» or Records anda 
null string if Character). 
Example: 
PROCEDURE P> 
RETURN? 
ENC P> 
PROCEDURE Q FIXED> 
RETURN 93 


END Q> 
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SIQP STATEMENT 


The Stop Statement witl generate a terminate communicate to the 
MCP to end the execution of the program. Expression is intended 
for use by compiters to ccmmunicate the number of syntax errors 
to the MCP. 


Example: 


STOP? 
STUP SYNTAX_LERROR_COUNT> 
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SWAP STATEMENT 


a seneme. “Salertor <-> 225 ere Selector “SS ss=<-) 


The Swap Statement wilt exchange the values of the two fields 
without uSing an intermediate variable for temporary storage. If 
the fields are of unequat lengths then the shorter tength witl be 
used for both fields» and the trailing part of the longer fietd 
Wilt remain unchanged. 


Exampte: 
BUFFER_1 2=? 8UFFER_23 


13 equivalent to: 


TEMP t= BUFFER_13 
BUFFER_1 = BUFFER_23 
DUFFER_2 2= TEMP? 
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UNDO STATEMENT 


i-- Co Group Identifier -7! 


If a Bo Group Identifier is specified» then the Undo Statement 
transfers control to the end of the Do Groun by that name. Tf a 
Qo Grouo Identifier 15 not specified» then controt wiit be 
transferred to the end of the current De Groun. 


Examotles 


DECLARE 
[ FIXED» 
A CARRAY_SIZE) FIXED, 


z= OF 
DG INTT_LA FOREVER> 
IF I = ARRAY_SIZE THEN UNDO INIT_A> 
ACT)2= I> 
z= I # ls 
END INIT_A> 
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WHILE STATEMENT 
aaa aan WHILE See" Expression. ““"r Statement S39 sS4ees==-"] 


Statement wilt be executed repetitively white the Expression 
yields atrue result. Expression is evatuated before each 
iterations s0 if Expression is initiatly faise then Statement 
will never be executed. 


Example: 


VECLARE 
I FIXED? 
A CARRAY_STIZE) FIXED? 


sx GF 
WHILE I < ARRAY _STZE 
DOs 
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MITH STATEMENT 


=" WITH tose cwtecere"" Selector sss sett enemeneweseesosew= Statement = 
| | 
j p< eres et en 4, ee ew ese mee eee ewe aes | ! 
1 i | j 
jew~-~ Alias Identifier *" AS “= Selector ----] 


selector must be a record variable. The With Statement opens a 
new scope containing the field indentifiers of the Record type of 
Selector. 


Inside Statement a fielc of Selector is selected by specifying 
orly its fieitd name» without oreceeding Jt with the entire 
de@lector expressions 


Lf a narwed fietd is fourd in more than one of the Selectors» then 
it is considered to belong to the tast Selector specified in tha 
With statement. 


Tf an Alias identifier is used» it may stand for Selector within 
the body of the aATTF btock. The alias aay not redefine any 
currently defined identifier. The alias becomes again undefined 
on axit of the WITH statement. 


Exampte: 
PCLTI.FLIELD_1 *2=X5 
PCI)FIELD_2 %=Ys 
PCI)~FIELC_3 t=25 


is equivalent to: 


WITH PCI) DOF 
FIELD_1 2=X3 
FIELD_2 2=¥3 
FIELD_3 <7=23 
END 


£xamplas 
WITH A» Bo C 
15 @quiyvalent to: 


WITH A WITH 8 WITH C 
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If an Alias identifier is used» it may stand for Saetector within 
the body of the WITH bicck. The adias may not redefine any 
currently defined identifier. The alias becomes again undefined 
on exit of the WITH statemrert. 


Example: 


Job_array (This_job).My_entry_recorcdeMy_name 2?= “Fred™» 

Job array (This_ job )d.My_entry_recordeMy_id *= This_job_id»> 
Job_array (This_jobj3.My_entry_recordeMy_time *= Current _§t imes 
Job_array (This_job).My_entry_record.My_id ?= This_job_id>, 
Process_entry_recorcd {Job_array (€This_jcd)-My_entry_record)>, 


1s eaquivatent to: 


WITH This_entry AS Job_array (CThis_job).eMy_entry_record DO? 
This_entryeMy_nawe i= "Fred"? 
This_entry»My_id *= This_job_ids 
This_entry«-My_tige 7= Current_time? 
Process_entry_record (Tais_entry)s 
EN Ds 


darning: In both forms of the WITH statement» each Selector 
Location is ewaluated once» atthe point where it 18 named Any 
subsequent change in the selection path Clike changing an array 
index or ren~referring a reference variable) will not affect the 
With aoject. Thus» in the above example» changing the value of 
This_job inside the body of the WITE bicck will have no affact on 
the meaning of This_entry» nor on the corresponding anonymous 
with object in the nontalias version. 
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EXPRESSIONS 
Expressions are the rutes for calculating a vatue using 
constants» variables» functions» and operations. The 
ecnwentionalt rudes of teft to right evaluation and operator 
precedence are observed» as indicated by the syntax graphs. The 


foltowing List summarizes the SDL2 precedence rutes by listing 
the operators in order cf decreasing precedencee 


+ = unary) 

«* ff MOD 

+ = cCadditive) 

< s= <% >= = €> IN CONTAINS 
NOT 


AND CAND INTERSECT 
OR COR EXOR UNION 


Express.i00 


ses Cat Factor soc ssser Sen ee al ara oases SPR ee ne ee ey oe a ile a I 
i-- CAT -~- Cat Factor cao | 
The CAT operator will cencatenate two fields together as one 
field. The resulting type witl be Character if both fields are 
Characters for all other combinations it witt be Bit. 
Example? 


BUFFER?= DECIMALCLINE NUMBER 24) CAT "2" CAT TEXT CAT "23 
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[<on-ne-- wee ene en-- ieale ie lalatatetatetatetatatel | 

{ 
cee OF becker ress AAS SS aS aa Re eee eS See es 

i : 

et UR. Seer sse ses: 0 Paceag ed 

| ! 

im-~ EXOR sic | 

i 1 

b=" UNICN. 94 

j i 

I-- COR -=] 


The GRYEXOR operation performs a togical bitwise OR/JEXOR of two 
operands> the result with éelways be of type Fite UNION performs 
a sat union of two operancss and is functionally the same as an 
OR. COR perfomes a short™circuited OR of two operands. Tf the 
first operand is True» the result ts True and the second operand 
is not avaluated. If the first operand is False» the resutt is 
the value of the Second operande 


Exaaplea? 


DECLARE 
CALPHAS» 
NUMERIC S» 
ALPHA_NUMERICS) CHARACTERS_SET>? 


ALPHAS:= € "0" 146 "5" I> 
NUMER TCS3= ¢ 7A" TO "I> "J" TO "Ps "3" TO "Z"* Js 
ALPHA_NUMERTCS:= ALPHAS UNION NUMERICS= 
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Qr Eactor 


{ieee eta ee ences iwue wens Reese ae { 
“-= And Factor  7“="""* Pee Ome ay ee ene ec a ee ee ne en eee 
= AND seweweewnmn= And Factor _ 
i-" INTERSECT ==] 
L's SCAND: ‘Sees | 
The AND operation performs 2 Logical bitwise AND of two operands? 


the resuit will always be of type Bit. The INTERSECT operation 
perforas a set intersection of two operands and 15 functionally 


the safe as an AND. CAND performs a short~circuited AND of two 
operands. [Tf the first operand is False the result is False and 
the second operand is not evatuated. If the first operand is 


Trua» the result is the value of the second operand. 


FEF xamplea: 
SET SUITS = CLUBS» DIAMONDS» HEARTS» SPADES>s 
DECLARE 


CPLAYER_ A» PLAYER_B» MATCHING SUTTS) SUITS 
MATCHING _SUTTS:= PLAYER_A INTERSECT PLAYER_B 


IF I < ARRAY_BOGUND (A) CAND ACI) = TOKEN 
THEN DAUSPLAY ("TOKEN FOUND"), 
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And Eactor 


| 1 Sectional | j Caen ewe ee ee mw os | 


H | i J 


sceccesess= Relational Factor setts seen st esestanecen nnn ncnnsns] 
i I i 
t- NOT =1 I-- = ss2""-- And Factor --! 
i i 
i-- <> eens 
i i 
I-- <0 weeen] 
i i 
I-- > 0 erent 
i 1 
pm- <= eeeest 
1 i 
[eo >see] 
i i 


I-- IN =7o<=1 
f 1 
i-- CONTAINS -1 


The relationat operators teave a result that has a value of Lif 
the cordition is true or € if the condition is false. The NOT 
operator wilt perform a Logical NOT on cone aperands and wiil have 
the Same type as its Single cperand. 


The IN operation tests whether the first factor Ca set element) 
is a member of the second factor Ca set)» The CONTAINS operation 
tests whether the first factor Ca set) contains the second factor 
{a Set)» that is» whether the second set is a subset of the first 
Sete 


Example: 
A = 8B 


X IN Ci TO 4] 
CRED» YELLOWs CREEN» BLUET CONTAINS CRED» BLUE] 
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Relational Eactor 


[<= see ewe oe oe ee es ee ee ee onan we | 


em Add Factor ttt cnt tert en eres e nnn cece er enna sewn e ere nn nn---] 
I 1 
I--  # <---"-"- Add Factor <="! 
i 1 


The + and °* operations perform 24 bit» two's complement 
arithmetic on two operands. If either operand is longer than 24 
pits» only the rightmost 24 bits widi be used. The result will 
pe Fixed if doth operands are Fixed» otherwise jit will ode a 
Bitt24). 
Exampte: 


A + B 
A ~- B 
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Acd Eactor 


Multiply Factor 


The MOD * and J/ 


operands are Fixed» 
yields an 
The MOB’ operation 


the remainder (Ci-.e@. 


Exampte: 


MoD 


Ss Ss SS 


oD B 
* #8 
/ 8B 


operators 
arith@etic on two operands. 


integer result» 
iS civision resulting 
9 MOD 4 = 


3976 


COMPANY CONFIDENT TIAL 
B1i000 SDL2 COMPILER 
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BP ee Me ee a a a oe Oe ee oe oa eee ee ee ee em | 


I | 


f-- MOD wer" Multiply Factor == 
1 j 
{== * woauwm | 
1 i 


perform 24 bit» twots complement 
The resuitt will be Fixed if both 
otherwise it will te Bitt24). Division 
ignoring the remainder Cise@Qe. D/4 = Ze 
in the integer value of 
1). 
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Multipiy Factor 


p< ore ewenea] 
i 1 


| j 1 i 
Das = ome] i-- Typed Procedure Catt sate nalancaaae | 
j 1 4 | 
a os se In- Standard Function 7773" pai lies 
i j 
is] Litera! SSSsess Sasser ered 


J 1 
i+ fet Constructor “ers eser=<] 
1 i 
i-- Fite Identifier “s**t ts+c-- =] 
| ] 
i-- Cet File Attribute weerer-7] 


Imm Assignment Expression -7**"7] 
j 1 
i-~ Case Expression “sss3rcs3--=- i 
i | 
t=" If £xoression- “95 ss" s-s==—- 1. 


1 I 
{-- C -= Expression =" 9) ==] 


The unary ~ operation wiil negate the value of an operand. The 
unary # does not change the operand. 


A Literal may be either a Fixed Number» a Character String» or a 
Bit String. See SOL2 LANGUAGE Section for details. 


See INFUT/OQUTPUT Section “for File Identifier and Get Fite 
Attributes 
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Selector 
Lester s eS Ss2e rr ane aS ae 1 
{ I 
--- Variable Identifier *---- slain aa bees a ie ia LST SA ae l 


i-- Field Setector =="! 


{-- Array Subscript ==] 
Field Ssiector 
se oeatel ela Sees 5. = Field Tdentitter: “ssseossssess4s-"s4e<451 


Atray subscriot 


aT ee ee { -— Expression me ) esse vane eee ee | 


A Setector is an Address Generator which identifies a variable or 
a subfietd of a variable. 


If an Array is referenced with a subscript that is tess than 9 or 


greater than or equal to the array tounc a rur "time error will be 
generated. 


Examptle:. 


RECORD R1 
LEN FIXED» 
OFFSET FIXED; 
RECORD R2 
IDS 19) Ri» 
TYPE FIXED? 
DECLARE 
A €19) R2> 


ACI). IDSC J} LEN3= B3 
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Typed Procedure fait 


== Procedure Identifier 


i-~ (€ =~ Parameter List =" ) =71 
A Typed Procedure Call is used to catt a procedure that returns a 
watues», and to use that yaiue in further Expression evaluation. 
Example: 


MAXIMUM S= MAXI Xe Vs 


06/28/84 
BURROUGHS CORPORATION 


COMPUTER SYSTEMS GROUP 
SANTA BARBARA PLANT 


aet Constructor 


=m ft Oe ee ee eee ee 


i-- Expression 


The Set Constructor expression is used to build sets from their: 


Expression 


5710 
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sane en eee eee j ~=] 


Expression =] 


member Se The form *Expression TO Expression* wilt include atl 
members of the set Bounded Ly the two expressions.» If the first 
expression is greater than the second it denotes an empty sete 


Note that set members are dectared 


Exampla: 
DECLARE 
NUMERICS 
ALPHAS 


NUMERICSs= £*07> 


ALPHAS:= ('™A" 


zxanples 


SET STATES = INITIAL» 


DECLARE 
STATE_SET 
STATE 


STATE_SET 3 
WHILE STATE IN 


"ji" 1G wR» 


= CINITIAL 16 FINAL Is 
STATE_SET COMPUTE_STATE> 


in ascending order. 


CHARACTER_SET > 
CHARACTER_SET > 


"5M, FHM, "Se "Be 


mae FO TL" is 


MEMEER OF STATE Ss 


"9" ]7 
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AsSignuent Expression 
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—- Selector ee - Se ee — awanmean we Expression Yee es ee Ss oe hh he Ue =] 
1 i 
j--=- -s = maf 
The Assignment Expression stores the value cf Expression into 
selector and leaves either the value (Cif 3= is used) or the 


Selector Cif 2:2 
evaluatione 


examples? 
s= "13 


DO FOREVER> 


is used) as an operand for further 


expression 


ACIs= I#1) 2=13 


If 1 = 
END? 


ARRAY_SIZE THEN UNDO> 
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Case Exoression 


CA3E --~ Index Expression 


>== |_ou @ @ m= we MBM Mm MMS Bee se ee Eee SE ECE 


ELSE =" Expression 


The Case Expression selects 
expressions to be evaluated. 
used as an index into 
Expressions 
of Index Expression 
ELSE 
Expression> 


is greater 


is not present. 


Examplas: 


Ts= CASE X OF € X#i> 


WRITE LINE CCASE T OF C"C", 


the List of Expressions. 
in the tist the range 


will be used or a runctinme error wilt be generated 


Xt2p 


3~12 
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{<--<<- , 


wm- OF =-— ({ =<“= Expression 


y =e eo nea ena eee ee | 


1 


an Expression from a tist of 

The value of Incex Expression is 
If there are N 
is froma 9 to Nvie. If the value 
than Nwi» the Expression fottowing 
if <ELSE 


Xtis X#4 D3 


ag HSe ELSe FS" 2 3¢ 


? 
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Lf£ Expression 


cee IF -- Expression <-" THEN “= Expression  sereeteenc==> 


Donan tere emweseesseseesee= ELSE == Expression  --tet-2o9--=1 


The If Expression 15 used to select an Expression for evaluation. 


Examples 
A s= TF X<¥ JHEN X ELSE Y> 
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Address Generator 


a een eae weeers Selector: <2 :r= Saas .Sa SSS a Se nea 7S) 
im- Typed Precedure Cait “1 
ee Standard Function oe, 
I-~- If Expression “2375 ain | 


{== Case Expression ee 1 


A Standard Function or Typed Procedure Call is considered = an 
Address Generator if its result type is Reference. 


An If Expression is cansidered an Address Generator if both the 
Expression fottlowing the THEN and the Expression following the 


ELSE are Address Generators. A Case Expression is considered to 
be an Address Generator if atl elements of the Case Expression 
List are Address Generétors. Note that the If and Case form of 


Address Generators are rot aglilowed in ali ccenstructs. 
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STANDARD PROCEDURES AND EUNCTIONS 


9CL2 provides a set of predefined procedureS and functions to 
perform comtonly required operations. 


The Identifiers are not reserved and may be redeclared» in which 
case the user declared name takes precedence over the predefined 
Oonee 


STANDARD EUNCTIONS 


Alfocate Memory 


mwem= ALLOCATE_MEMORY <==" © s*" Size ct) seeeeee atatal 


AltLocates Size bits from dynamic memory» and returns the starting 
address as a 24 bit vatue. It is the programser‘s responsibility 
to maintain an active reference to this memcry address at alt 
timese Once ail active references have vanishecs the data may be 
swapped out if the memory is needed for other purposes. Notee 
however» that there 15 no mechanism for swapping the data back in 
from virtual disk once it 18 swapped out» nor is there any 
mechanism for freeing the virtual disk used to store the rolled 
out data 


cxample: 
DECLARE BUFFER REFERENCES 
FEFER_ TYPE CBUFFER» BIT); 


REFER _LENGTH (S8UFFER» BUFFER_SIZE)> 
REFER_ADDRESS CEUFFER» ALLOCATE_MEMORY CBUFFER_SIZE))- 


Array Bound 


“sse=  ARRAY.80UND "=< € == Array Variable <<" 9) =="<<= peeatacla | 


Returns the number of elements in Array Variable as a 24 Dit 
value. 
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Attribute Value 


“o--- ATTRIBUTE_VALUE -- ( =~ Attribute -- » -= Value =~ ) =7-1 
Attribute may be any fite attribute allowed in a Get/Put 
Attribute statement. Value must be a precefined mnemonic value 


for that attribdute. This functicn returns a fixed number which 
is the MCPwassigned number corresponding to the attribute value. 


Example: 
IF INFILE*KING = ATTRIBUTE_VALUECKIND »DISK) 
THEN DISPLAY C™INPUT IS FROM CISK"™); 


Base Register 


seem= BASE_REGISTER reer mmm cern e nena s ern cece sens cae ennn nes] 


Keturns the absolute memory tocation of the hase of the program's 
data space as a 24 bit value... 


were> BINARY == € -- Expression =) t3wtennnsananscen- i 


Peturns a 24 bit value which 1s the binary representation of 
Expressions. Expression 1S asStumed to be a character string. 
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Binary search 
owwenm= BINARY SEARCH == € == First Element -- » == Key Field --~> 


>= = , = Expression =m y, o- Elements = j ee ee ee ee | 


First Element must be an Adéress Gererator and have a type of 
Record or Reference. It should be the first element of a 
structure whose elements are ordered Dy increasing key vatue. If 
First Element i585 a Records» then Key Field snust be a field of the 
Record type of First Element that wili be used to compare against 
Expression. If First Element is a Reference variabler then Key 
Field must be a Reference variable whose address is the offset of 
the Key Field into First Element» and whese tengqth and type 
reflect the Length and type of the key. 


Expression 18s the vatue of the key to te searched for. The 
Lenath of Expression must be equal to the tength of Key Fietd = or 
unpredictable results may occur. Elements is an expression whose 
value is used to give the bound of the Search-e The etement 
number (Cthe First Element is 0) cf the first element whose Key 
Field is greater than or equal te Expression is returned. 


This function should not be used if the elewents to be searched 
are in more than one page of dynamic temory or are not in 
ascendirg order. 


e---=- BUMP == Bump Variable i “ss"see"°->-7° SSS SSS SS SSeS 1 
I-- BY ~* Expression =i 


Bump Variable must be an Address Generator. If Expression is 
present Expression is adced to Bump Variables» oatherwise 1 is 
added tro Bumap Variable. The result is stored into Bump Variable 
ard returneds (See also Eugp in STANDARD PROCECURES Section). 
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Character Table 


w---- CHAR_TABLE ----- ( cece String --"7- )  seeeee=- 


String should be a quoted string of characters» or a bit string 
where every eight bits correspond to 2 noncgraphic character. 
CHAR_TASLE will return 2 Character Set whose members are 
precisely those characters specified in String. 


ixampte: 


ChAT, "A", "Oty Ds "£7 ) 


c"x*> ye, “7 "» my?» "y "> air aaa | 


CHAR_TABLE C*ABCOE™) 
CHAR_TABLE C°XY2Z"> "xyz") 


ii 


esos = Ciiks “SS ub. Moy Expression. ==. J: Geese sare teaase sas 


expression should be an integer vatue Ceither bit or fixed). 
Returas a Sinaqte character with the ordinat position of 
Expression in the EBCDIC character set. 


= xamples 
CRKR CaCliad = ™ A" 
CHR (193) = "A" 


Code Address 


ceoeew= €6CODE_ADDRESS -- € =" Procedure Identifier "=" ) =I 


Returns the code address of Procedure Identifier as a 32 bit 
value. (See SDL2 S"“MATCHINE Product Specification for the format 
of a code address). 
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Communicate with f£ismo 


wwewem~ COMMUNICATE _WITH_GI5SMO0 -- € -= Expression =" ) =I 


Transfers control to GISMO» passing Expression aS a parameter and 
returning a value. see MCP Product Specification for formats of 
parameters and values returned. (See also Communicate With Gismo 
in STANDARD PROCEDURES Section)d.-~ {For MCP use only). 
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Convert 

emeem= CONVERT “= € == Exoression “= »9 “e"5* BIT ccsncces- “===> 


I-~ CHARACTER =-1 


Expesssion 18 converted to the type specified» according to these 
ruless 


SIT to FIXED: Up to 24 of the rightmost bits are converted. 
FIXED to BIT: The result is d8IT(24). 


CHARACTER to FIXED: Leading blanks and sign are allowede Up to 
seven of the rightmost characters are converted. 


FIXED to CHARACTER: The result is eight characters. The sign and 
any leading zeros are not supressed.» 


BIT to CHARACTER: The radix = 2 ** Grour. 
CHARACTER to BIT: The radix = 2 ** Group. 
Group 18 only usec with BIT to CHARACTER or CHARACTER to 8If 
conversionse It specifies the number of bits in the bit string 
which correspond to a character in the character string. The 


default Group is 4 {hexadecimal ). 


Exampie: 


CONVERT C™-72581"%» FIXED) = =725861 
CONVERT CaC3IF 52a» CHARACTER? 4) = “1E4" 
CONVERT CaACLILICLLa» FIXED) = 27 

CONVERT ("™i32">» BITer 2) = a{2)132q 
CONVERT C"132"%» BIT» 4) = a(4)1i2a 
CONVERT ("2"» BIT) = a€4)ea 
CONVERT (74> BIT) = QC4FFFFFCa 
CONVERT ("4s CHARACTER) = *-9000004" 
CONVERT Cad A000» CHARACTER) = *OA0™ 
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Data Address 


saiatater DATA_ADDRESS == (€ -- Selector <=) weer teeeaHee-- i 


Returns the base relative address of Selector as a 24 bit value. 


Deta Lengin 


alata DATALLENGTH =~ € <== Selector 7")  seemarenssen==<4 


Returns the bit length of Selector as a 24 bit value. 


Data Offset 


so--- DATALOFFSET *- (€ "= Selector <*  )  taetereresnsee-] 


Selector must be a record subfield. Returns the offset in bits 
of the specified fielo from the beginning of the record. 


o---- DATATYPE == © |" Selector -- J sSsecmesasa-sese-] 


Returns the type bits of Selector» right"justified in a 24 bit 
field. (See SDL2 S“MACHINE Product Specification). 
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Dates 
ss--- DATE seem scene ean ere an crew ce we wee ne ce ee essence secon sa =| 
I i 
Po~ (C seers JULIAN <7" » 82" BIT seoe----- ) --] 
I 1 1 1 
I-= MCNTH =7] I-- DIGIT =<"--1] 
I ! { 1 
[-- YEAR ---1] i-- CHARACTER ~1 


] 
I-- DAY -<9-1 


Returns a string contairing the current date. The defauit format 
is CMONTH» CHARACTER). 


Formats: 
RECIRD JULIAN_FORMAT 
YEAR BITC(7)» 
DAY BITC9)s 
RECORD MONTH _ FORMAT 
MONTH BITC4)» 
DAY BITC(S)» 
YEAR BIT(/7), 
RECORD YEAR_FORWMAT 
YEAR BITC? )» 
MONTH BITC4)» 
DAY BITC5S)s 
RECORD DAY_FURMAT 
DAY BIT(5)>» 
MONTH BITC4&)» 
YEAR BITC’ )> 
Decimal 
[ono DECIBAL- 29-0 =S"-Exoresston: (Sr Se rts s esa See ee 


I-- » == Length “71 


If Length is specified» it shoutd be an Expression between 1 and 
B and a character string of Length characters containing the 
decimal representation of Expression witl be returned. If Length 
15 not specified» the result string wilt be from 1 to 8 
characters long with leadinc zeroes Suppressed» If Expression 75 
greater than 24 bits» onty the rightmost 24 bits will be used. 
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Dectepent 

meee= DECREMENT ~- Decrement Variable cscs en ee secsesecesscee= --| 


i i 

i- BY =~ Expression 1 
Decrement Variable must be an Address Generator. Expression (1 
if BY Expression i158 omitted) is suotracted from Decrement 


VYariabla. The result is stored into Decrement Variable and 
returned. (See also Ceacrement in STANDARD PROCEDURES Section). 


Dispatch 


were= DISPATCH -- €( == Port Channel =~ » == TOD Address =") -7] 
Port Channel should be an Expression whose value is the port and 
channel of the devicee [00D Address should te an Expression whose 
value is the absolute address of the I/0 descriptor to be 


dispatched. (See MCF Product Specification for tayouts of the 
PortChannet fietd and 1/0 descriptors). (for MCP use onty). 


Dynamic Memory 3ase 


“---- DYNAMIC_MEMORY_BASE sate esto erro en en en cece nance cnenn- 2] 


Returns the offset from the base register af the beginning of 
dynamic memory as a 24 kit value. 


Eetch Communicate Messace Pointer 


e---- FETCH COMMUNICATE_MSG_PTR 9 -necerrnsnee n= en nnen---- ---1 


Returns RSeREINSTATE_MSE_PTR» CSee MCP Product Specification for 
layout of the Run Structure and meanings of the values returned). 
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File Resident 


Sie ae a FILE_RESICENT <= { se - $446. 19) “== ) S=F esses ===>] 
File Id must be a Filer Switch Files or File Pointers» whose Title 
has previously been Sete The file should have a hardware Kind of 


Diske Returns True if the file is resident on disk» and False if 
it is not. 


Hex Sequence Nusber 


ee-=- HEX_SEQUENCE_NUMBER 9 to ecuesenens-e--- --=-- a alatatatatatetae ---1 


Returns a 32 bit value containing the sequence number of the 
current Line in hex digits. 


Length 


-sess LENGTH =". € == ‘Expression: <=) So<se-<-sesees=-=54 
Returns a 24 bit vatue containing the Length cf Expression. If 


the type of Expression is character the vatue wiil be the number 
of characterS» otherwise it will be the number of bits. 


Limjit Register 


cw-"- LIMIT_REGISTER ------- eweecn=- wo seecenene- aeweneraeeen| 


Returns a 24 bit vatue containing the base to timit size in bits 
of the program. 


Name of Day 


wa---) NAME_OF_DAY -------"-- Salata atthe telaletabeateeteteeiaettetatel 


Returns a 9 character string containing the name of the day of 
the week. 
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Nudl 

ss2-- NULL teem enn te nn nnn en nen rene sewn ence enn nce cn en nn n| 


returns a null Czeromtencth? character string. Note that NULL 
can be used as a Setlectcre 


Odt Inpyt Present 


aera TOT INPUT PRESENT “S26 ee see SSeS See Sas ewe Se ee ae See a =] 
Returns a true value if there are any outstanding messages from 


an operator agccept. CSee "AX" command in the MCP CONTROL SYNTAX 
Product Specification). 


————— “ORD. oss C -- Expression -* ) SS Se3S===— “SSS = Ss 5 J 
Exeresstion should be a set member. Returns the ordinat position 


of the member within its parent sets Nete that single characters 
are considered to be members of any character set. 


Example: 


ORD C*7A") = 193 

ORD CRED) = 9 % Assuming SET FLAG_COLORS = RED» WHITE» BLUE; 
Pack 

sence. “PACK < 9S" “Expression =" 2 =Saceesen Se Se eae a 1 
Expression should be an unpacked decimal expression. The zone 


oits will be stripped off» and the packed decimal equivalent of 
Expression will be returnede The result is of type Bit. 


Exampte = 


200123452 
aiC3a 


PACK €709012345") 
PACK (CaFIFOF 3a) 
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Processor Line 


“=== PROCESSOR_TIME 9 ----"----=--- wacn-- ea mene sec esersnnne=- 


Returns a 24 bit walue ceontaining the ascunt of processor time 
that has accrued for this program in tenths of a second. 


Preagrag SHitches 


aise “PROGRAM -SHAIICHES. “cS se s™ = a === = lies aoa bes ee os | 
I=- € =" Expression =" ) -7] 


Returns a 40 bit value containing the Program Switches» unless 
Expression is specified. If Expression is specified» it must 
evaluate to a value between 0 and 9» and the function wilt return 
a4 bit vatue containing that program Switch. 


Read Lock 


eseee READ_LOCK <= € == Selector -" » =" Expression =" ) ===] 


Expression is Stored into Selector» and the original vatue of 
Selector is returned. If Selector is tonger than 24 bitse only 
the rightmost 24 bits cf Selecter will be returned. The type of 
the result is always ite 
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Search Linked List 


> 2m Key ee ee = 
1-7 £> 
I 
j-- x 
I 
i 
j-- <= 


First Element must be an Address Generator with a type of 
If First Element is a Records 


or Keference. 


SEARCH _LINKED_LIST 
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— { om 


First Element =" ? 


Expression =" » ** Link =" ) 


1 


Record 
then Key and Link 


must be fields within the Record type of the First Element. If 


First Element 


fields within First 
chaine 
length. 
24 bits 
compared 


If Expression 


will be used 


A search 


relation is true» 


is returned? 
data address of att F's 


Example: 


RECORD INFO 
BACK_LINK 
FORWARD_LINK 
1D 
DATA 

DECLARE FIRST INFO» 


is a Reference variable» 
Reference variables reflecting the offsets of the 
Eiement. 
containing the base retative address of the next 


is performed starting at First Element until either 
3 or a link of att Fis 
chain has Ltinked back to the first element. 


then Key and Link must be 
key and tink 
a 24 bit fieid 
record itn the 


Link must be 


Both Key and Exopression shoutd be a maximum of 24 bits in 
is larger than 24 bits» 


onty the rightmost 


in the comparision» and they will be 


against the teftmost 24 hits of the Key fieid. 


the 
or the 
The selected element 


iS encountered» 


if no match was found an Address Generator with a 
is returnede 


BITL 24)» 
BIT(24)>» 
BIT{2C)>» 
BITCiCoys 


CURRENT REFERENCE INFQ> 


REFER CURRENT TO 


SEARCH _LINKED_LLIST CFIRST> 


TIF DATA_LADDRESS CCURRENT) = 


ID = PATTERA» FORWARD_LINK) 


aFFFFFFa 


THEN DISPLAY C"PATTERN NOT FOUND™)3 
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Search SDL Stacks 


wes=- SEARCH_SDL_STACKS <= € == Lower “" » == Size =" ) ="<"71 


Lower must be an Expression whose value 15 the hbase retative 
acdress which is the tower bound of the range to be searched. 
Size must be an Expression whose valuie is the size of the range 
in D1t5S-e The descriptor stack is searched for a descriptor whose 
address is within the range. If a descriptor is found 1 is 
returned. If no descrirctor is found 9 15 returned. 


SEARCH SOL_STACKS is intended primarily for the use of the memory 
Management intrinsic. 
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Search Serial List 


weem= SEARCH_SERTAL_LIST  - € 7 First Element wc w-"-"-<- > 
Paes 2 ase ess eS Saw tetesesies: i ose Expression = 7s"7=- > 
1 1 1 i 
I-- » =" Key 14 [s- <> Sed 
{ 1 
I-- < == 
1 1 
f-* 3 1 
| J 
i-- <= =] 
1 i 
I-- >= =I 
2S yf Se CEL eMentS. Ss ) “Swe nems [aes Se SS SS = 1 


First Element must be an Address Generator. If Key is specified» 
then First ElLement must be of type Record or Reference. If First 
Element is a Record» then Key must be a fielc within that Record 
type» If First Element is a Reference variable» then Key must be 
a Reference variabie whose address is the offset of the key 
within First Element. If Key 15 not specified» then First 
tlement may de of any constant tength type and the comptete 
element will be used as the keye 


Elements is an Expression describing the bound of the search. A 
seriat search is oserforaed starting at First Element until either 
the relation is true or the end of the table is enccuntered» The 
etement number (First Element is 0) of the selected element is 
returned. If no match was found Elements is returned. 


This function should not te used if the elewents to ke searched 
are in @more than one pace cf dyrawic memor ye 


Example: 


RECORD JOB_INFO 
JOS_NO B11(16) 
NAME CHARACTERC30) 
PRIORITY BITC4)3 
DECLARE JOBCMAX_JOES)  JOB_INFO> 
I FIXEDS 


T = SEARCH_SERTAL_LIST (JOBCO)» JOB_NO = THIS_JOBs MAX_JOBS)s 


TF fT = MAK_ JOBS 
THEN DISPLAY C"JO8 NOT FOUND™); 
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2&guence Number 


we---  SEQUENCE_NUMBER  =--""--~--- a cee tee ten ec ecenene saacecen-- i 


Returns an 8 character string containing the value of the 
sequence number of the current source tines 


eweres SHIFT =~ € -- Expression =" » =" Shift Factor =~ ) ="-"1 


Returns Expression shifted the number of bits specified by Shift 
Factores If Shift Factor is positive» Expression wiit be shifted 
to the teft by concatenating Shift Factor bits of zera onto the 
right. If Shift Factor is negativar Expression witl be shifted 
to the right by truncating the rightmost Shift Factor bits. For 
a bit value» this is equivalent to multiplying by 2 raised to the 
Shift Factor power. 


aubbit 
ceeee SUBBIT == € = Expression *" » =" Offset wrrernr= > 
Pee A Se Se Se EO Re NSE Sem J Sewers se ew tS SSeS ee 1 
i | 
i-- » == Length --! 
Expression is assumed to be of type Bit. Returns a subfield of 


the vatue of Expression starting at Offset Lits for Length pits. 
If Length 18 not present the tength is calculated to be the 
remaining Ditse Bits are numbered from left to right» starting 
With zeroe The result witl always have a type of Bit. 


CSUBSIT may be usec as an Address Generators In which case 
Expression must be an Address Generator). 
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2uUOSEr 

eae SUBSTR 7 € =" Expression =" » =" Offset  W""*""™> 


>= = a 75 we mm 7 a a A ee ee ee ee ee ee ee et y ee ee ee et mnemmmem nse = ew we om mf 
1 i 
i--  » == Lencth --1 


Expression is assumed to be of type Charactere Returns a 
subfield of the value of Exgressicn starting at Offset characters 
for Length characterse If Length ts not present the tength is 
catculated to be the remainina characters. The resuit witt 


always have a type of Character. 


CSUESTR may oe used as an Address Generatorr in which case 
Expression must be an Address Generator). 


For comciter and interpreter debugging anly. (See also STANDARD 
PROCECURES Section). 
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Ligs 
----- TIME tat te en on cn een ee ee een cee ee ee en cece sesese ane] 
{ 1 
l-- (€ -“- COUNTER -e-%" » toe ELT sneer »--1 
1 1 I ' 
i- MILITARY 1 i- CIGIT -"---13 
1 1 1 1 
{- CIVILIAN -1 I- CHARACTER -1 


Returns a string containing the current time of day» The default 
format is CCIVILTAN» CHARACTER). 


Formats: 
RECORD COUNTER_FORM AT 
TENTHS BIT(20)3 
RECORD MILITAPY_FCRMAT 
HOURS BIT(5)» % 24°HOUR CLOCK 
MINUTES BITC6)» 
SECONDS BIT(6)» 
TENTHS BIT(4)3 
RECORD CIVILIAN_FORWMAT 
HOURS BIT(4)» % 12°HOUR CLOCK 
MINUTES BIT(5)» 
SECONDS BITC6)» 
TENTHS BIT(4)» 
AN_GR_PN CHARACTER(2Z233 &% *AM™ OR "PME 
Liner 


“-=-- TIMER 0 samen na tens enn cerns mene necen scenes cnn anccnnanen| 


Returns a 24 bit value with the current setting of the hardware 
Time Registers 
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Todays Date 

wee== TODAYS_DATE «seer sone -=- lheteatetatoe we ew ew ee ew ee ween nn wee { 


Returns a lf character string containing the date of compilation 
of this program. . 


The format of the string iss 


RECORD TODAYS_DATE_F ORM 


MONTH CHARACTER(C2)»° % 01 TO 12 

SLASH_1 CHARACTERC1)5 &% X¥ LITERALLY "JY" 

DAY CHAR ACTERC 225% % 01 To 31 

SLASH_2 CHARACTERCL)» © X LITERALLY "/*™ 

YEAR CHARACTERC2)»*. % 00 TO 95 

FILLER CHAR ACTERC1)» xX LITERALLY * * 

FOUR CHARACTER(C2)> % 01 10 12 

COLGN_1 CHARACTERC1)» % LITERALLY ™:*" 

MINUTE CHARACTERC2)» 2% 90 76 59 

FILLER CHARACTERCi)» xX LITERALLY ™ * 

AM_PM CHARACTERCZ)3 X LITERALLY "AM" GR "PM™ 

Type_Length 
weme= TYPE_LLENGTH == € == Type Identifier ct 9) «8852 1 


Returns a constant value which 18 the tenath in bits of any 
variable of the given type. 


Unpack 


eee UNPACK == € = Expression -"  ) waretennR=- aaa 1 
Expression should be a packed decimal expression. The unoacked 
equivalent of Expression» with the zone bits filled in» wittl be 
returned. The result is of type Character. 

Exauple 5: 


UNPACK €2123454) 
UNPACK (21902) 


"12345" 
wae 8 | is 


iil 
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Wait 

-<--- WALT sett est ce ee cee meee ence eee sen eseee= (  saecre==> 


Iinm- (€ *- Start Position =" ] -71 


i 
“- SERVER_MESSAGE_PRESENT state nccrnatse snnn enna nn nena] 


J Cte ne wer ee wee eee a em Sse nam mw > onan ee ae ee | 
1 1 
>---  Tosteclanheelnieetedietentetedatententetetedaatetatetie wececerne=- wren e==> 

H i i 
1 1 i- WHEN -- Expression --1 
1 1 
| furs s een ws eee tw emet ewes eweasmeas ===] 
4 j 
Re= TIME TENTHS, ~= = -€ == Tantns: -* ) =-eee<- ea a | 
{ | 
>> DDTLENPUIZPRESENT  seoHserssaes SemRSice Heeeeeeneseas= i 
j i 
== pC 10 COMPLETE “=<SsesSe-== 22255 SSS Ss ee eS Se Se eS ~1 
i 
tf!" READ OK * © = Fite. 1d. SSeS sess se eee eee > oS 
I i ! i 
] 1- [€— - Member ~- ] ~1 ] 
4 1 
f-- WRITE_OK <- € = File Id weec=-e-2 ae Se aoa am aoe eee, meen | 
1 | | ] 
i in £ = Member ~- ] 1 | 
I 1 
i-- DHWRITE_OCECURRED <“=- £ == File Id «> J) 280 eese3s->] 
i 1 
t=- OPERATOR_OK ~o- s+ o+ een sere seen sne=- om ce nan a so mn a | 
J | 
t-- CHANGEEVENT =~ € = Fide Id *«----- seen esenea “mam J =] 
i { | i 
| Im € = Member = 1] -1 4 
{ 
j 


The program witil be suspenced until ane of the wait events 
dbecames true. The value returned is the ordinal position of the 
event in the wait event list (first is (). Start Postion can be 
used to specify which event in the tist to test first. The 
default is to start at event 0. 


If WHEN Expression is present the event will be inciuded in the 
wait tist only if expression yietds a true result» however a null 
event witt be inserted in the tist to e#aintain the ordinal 
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position of the eventse 


Tf YFTIME_TENTHS is specified» it must be the first event in the 
11S5t. 
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Extended Arithmetics 
Se K ADD swt" € == OQrerand_1 “=~ » =" OGperand_2 7=* ) *""-7] 


1 i 
I-- X_MUL =-1 
i | i 
I-- K_DIV =-1 
1 ’ 
i-- xX _MOD <--!] 


The extended arithmetic functions perform extended precision 
arithmetices Where either the operands or the resuit are longer 
than 24 bitse No sign analysis is performed. If both operands 
are not the same tength unpredictable results may occur. 


X_ ADD adds Operand_1i to Operand_2 end returns the result as tybe 
Bite 

X_SU8 subtracts Operand_2 from Operand_1 and returns the result 
as type Bite 


YX MUL multiplies Operand_1l ty OGperand_2 and returns the resutt as 
type §8it. 


X_DIV divides Operand_i by Operand_2 and returns the result as 
type Bit. 


KX M00 woduto divides Operand_1 by Operand_2 and returns the 
result as type Bite 
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STANDARD PROCEDURES 


Accept 


sa--" ACCE?T == € == Destination 7") teeeseetenneeen=-! 


Destination must be an Address Gererator. The proqram wilt he 
suspended until the operator responds with en AX message on the 
OCT. Ihe message entered ty the operator wilt be read into 


Destination» and then program execution wilt te resumed. 


AAlocate 


meee ALLOCATE --- € == Identifier --~ » --" Expression crt re cians 


> ew oe ee meme mew a Zh EE PS ME PSE EB ee ee ee ) Sup enepnai EB eHE eEB ee e enema a= | 


I--- » ==" Expressior 7="71] 


The ALLOCATE orocedure must be called from gtobal Cunctnested) 
code. Identifier must be a2 qtobal dynamic variable. If this 
variable is an array with both varying Bourd and varying length» 
then both Expression arcumenrts must be present» Signifying the 
actual array bound and element size desired» in that order. 
Gtnerwise» a single Expression is supplied» indicating either the 
fenath or the bound» as the case may bee For example» 


DECLARE gda (*) EIT» 
buf SIT VARYING» 
recsize BITC 8)» 


total _size 8171024 )>s 
* Catculate recsize ard total_size hereecas 


ALLOCATE (buf? recsize)> 
ALLOCATE (gda» total _size/recsize» recsize)? 


FOR ¥ = 0 TO ARRAY _3CUND Cgda> = 1 DOs 
get_buf Cbuf > 
qda Ci) *= buf? 
ENDs 
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Bune 

a ae ' BUMP ~~ Bump Varisbteq (sce stresses ee ce eens we ee sees wea | 


i-- BY -" Expression 7] 


Sump Variable must be an Address Generator. If Expression 15 
present Expression is added to Bump Variable» otherwise 1 is 
added to Bump Variable. The result is stored into Bump Variable. 
CSee also Bump in STANDARD FUNCTIONS Section). 


Call 
SSS CALL Se CS SeSes sss a lett a “= Code Address °7 ) 72-7] 
H i 
j LR ae Se eS Ss ciel | 1 
i { i i 
fe==* Parca. os og Se =e4 
Parforms an indirect call. Code Address must generate a 32 bit 


value containing the code address to te called {See S3$DL2 
S"MACHINE Product Specification fer format cof a code address). 


Ali parameters will be passed by referencer not by value. Array 
Darameters are not allowed. 


CFor DMS use onty). 


Character Eild 


m~ CHARACTER_FILL == € == Destination “= » =" Expression =" ) 7] 


Destination must be ar Address Generator. The leftmost 8 bits 
{first byte) of Expression sitll be used to fill Destination. 


Communicate 


ee COMMUNICATE == (€ =" Expression “= J steerer oad coal 


Transfers control to the MCF passing Expression as a Parameter. 
(See MCP COMMUNICATES ANE STRUCTURES Product Specification for 
fermat cf parameters in a communicate). 
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Communicate With Gisos 


omwem= COMMUNICATE WITH _GISMG -~ € == Expression =" ) =! 


Transfers control to GISMO passing Expression aS a parameter. 
(See MCP Product Specification for formats of parameters. See 
aiso Cogsmunicate With Giswo in STANDARD FUNCTIONS Section).j (€For 
MCP use onty). 


Ccocile Card Informatiar 


cewmem= COMPILE_CARD_LINFO -- € =" Destination °*7 ) =====-] 


Destination must be an Address Generator. Information about the 
program is returned irte Destination in the fotlowing format: 


RECORD COMPILE _CARD_INFO_FOR™ 


CBJECT NAME CHAKACTER(C 30)» 


EXECUTE TYPE CHARACTERC2)>» 
% 01 = execute 
% 02 = compite and go 
% 03 = compite for syntax 
% 94 = compile to tibrary 
% 95 = compile and save 
% 06 = ge part of compile and go 
% OF = go part of compjle and save 


CHARACTERC10)> 
CHARACTER(C 30)» 
CHARACTER(C19)>» 


COMPILER PACK YDOENTIFIER 
INTERPRETER NAME 
INTRINSIC NAME 


PRIGRITY CHARACTER(C2)» 
SESSION NUMBER CHARACTERCO)>» 
JO8 NUMBER CHARACTER( 5)» 
COMPILER MFID ANC FIQ CHARACTERC20)>» 


CHARGE NUMBER 

FILLER 

DATE AND TIME COMPILED 
FILLE? 

USERCIDE 

PASSWORD 

PARENT J0O8 NUMEER 
PARENT QUEUE IDENTIFIER 
LOG $PD 


CHARACTERC 7)» 
CHARACTERC 1)» 
BIIC36)» 
B8LTC4)» 
CHARACTER( 10)» 
CHARACTERC19)» 
CHARACTER 4)» 
CHARACTERC 20)» 
CHARACTERC1)3 


06/28/84 6“26 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
CCMPUTER SYSTEMS GROUP Bid000 SDL2 COMPILER 
SANTA BARBARA PLANT : PeSe 2228 3519fT) 


wewewe= DCLINZTIATE_TG =" € 2° Port =" » =" Channel “=> 


Seeen (pf ee 10 Descriptor Address. “<== ) (=s<=== Sa ase Se 1 


[0 Descriptor Address must te the basewretative address of an 13 
descriptor which will be initiated on the specified Port and 
Channet»> (CSee MCP Product Specification for more information). 


Decrement 


“=~~m DECREMENT =~ Decrement Variable "crt s tt st tssssresr== aca | 
1 i 
jm- EY ~-- Expression <-71 


Decrement Variable must be an Address Generator. Expression (1 
if BY Expression is omitted) is subtracted from Decrement 
Variable and the result 1s stored into Decrement Variable. {See 
aisa Decrement in STANDARD FUNCTIONS Section). 


Disable Interrupts 


so--- DISABLE_INTERRUPTS -----eee"------ Salaislatatatatatetatetatete neces 


Atl interrupts wilt be disabled until an ENABLE_INTERRUPTS is 
executed. (For MCP use aniyde 


Dispiay 


secre DISPLAY. oo) 2.132 2xnression: H Sete sS tS sesso rsess ee esos ss 
ce po soe== CRUNCHED ee 
ee VERBATIM ~----- 
i NO_MIX_INFO = 


Expression wilt be orinted on the ODT.»~ If CRUNCHED is specified» 
the MCP wilt detetea all traiting blanks and substitute one blank 
for each occurrence of eultiple embedded bianks in Expressione 
If VERBATIM is specified» mix anformation wiit anopear on a 
separate line of output» and the expression will appear on the 


mow | 
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ODT exactly as given. NO_MIX_INFO is Like VERBATIM but no mix 
information is printed with the output. If WEREATIM or 
NGUMIX_ INFO is specified» the leftmost column of output should 
contain only blanks or special terminal highlighting characters. 


Duws 


nn a DUMP OPM EE OM eB OE Ce SSE FSR BR ee et ee Ss ee oe one em ee aoe ee ee oe | 


Generates a memory dump of the programs 


Enable Ipterruots 


cao" ENABLE_INTERRUPTS tose ect ec center ncn secre sens cee ccnnen- i 


If interrupts are disabled they wilt be enabled and normal 
processing of interrupts will ceontinue. (For wWCP use only). 


Error Communicate 


wome> ERROR COMMUNICATE --- € ** Number coer --steereceere= ) ==] 
i 
I-- + -- Msq -71 


Transfers controt to the MCP» using Number to select the 
appropriate run "ti@e error message (number 29 is the nuil error 
message). If M8Sg iS present» then it wilt te displayed following 
the canned error message texte. 
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Fsich 

Sesee PETC “= £. SS oD Reterence ~SS if SSeS Seon= Se 


>eeew- Result Descriptor =~ » == Port Channel ~~ 2 =H"-"1 


I0 Reference must be an Expression whose value is the reference 
address of an I/0 descriptor. Result Descriptor must be an 
Address Generators» Port Channet must be an Address Generator. 


The Standard Procedure FEICH fetches the result of an I/D 
Operation. If there is 4 high priority interrupts» then that 
interrupt wilt be reported. Ctherwises if I0 Peference is 
nonzero then onty an interrupt on an I/Q descrictor with that 
reference address will be reported. If not found then the first 
interrupt to occur will be reported. The port and channel number 
Witt be stored into Port Channel and the adcress of the result 
descriptor will be stored into Result Descriptor. 


(See MCP Product Specification for more information on interrupts 
ara I/0 descriptors). {For MCP use only). 


Freeze Prograa 


weno= FREEZE_PROGRAM sto tect torneo en eeennn === Ss alateiatatatetatetatetatatel | 


This procedure prevents the program from being moved to a 
different memory Locations or frog teing rolled out of memory. 


seme HALT Cee “= Expression = i 25a Seon eee Sam ef 


The machine wilt halt with 2112 displayed in the L register and 
the low order 24 bits of Expression displayed in the T register. 
{See SDL2 S"MACHINE Product Soecificaticn fcr more information). 


Hardware Monitor 


so--- HARDWARE_MONITOR =" € == Expression 7- ) see" =="1 
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See S50L2 S “MACHINE Procuct Specification or 81000 PROCESSOR 
Product Specification fer mere information. 


Message Count 


waewe= MESSAGE COUNT ~~ € =" File Id =" » == Destination -" ) ~74 
File Id must be the name of a queue file» and Destination must be 
an Address Generator. The number of messages in the queue will 
be returned as a fixed number into Destination. If Fite Td 


refars to a queue file family tnen an array of values» one for 
each farily nembers» wilt be returned into Destination. 


Refer Address 


wwews REFERLADDRESS -~- € -= Referent =~" » “~- Expression =~ ) --1 
Referent must be a Reference or Pointer Variable. Expression 


Witt be stored into tte address part of the descriptor for 
Referent. 


Refer Bound 


“-— REFER_BOUND ~"~ € "= Referent “"~ » "=" Exoression “=~ ) =-71 
Referent must be a REFERENCE array. Expression wilt be stored 


into the array~bound part of the cesCriptor for Referent. 


Refer Length 


areas REFER_LENGTH -- € ~" Referent =" » =" Expression =" ) =~] 


Referant must be an untyped Reference variable. Expression witl 
be stored into the tength oart of the descriptor for Referent. 
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Refer Iype 


wew~ REFER_LYTYPE --- € =" Referent ==" » --- Expression 7-7" ) -7] 
j { 
jseee 84 ss e—4 
i 1 
i-- CHARACTER =! 
Referent must be an untyped Reference variable. The type part of 
the descriptor for Referert widl be set to either Expressions the 
predefined type of Bil» or the predefined type of CHARACTER. 


Reverse stere 


(ise s. 9. eee = 
1 1 
“ew REVERSE_STORE «= € === Selector "=" » 7" Expression 7" ) =7] 


Multipie store operations will be generated» evatuated from teft 
te right. 
Example: 
REVERSE _STORECA 0B of 9 1)5 
1S the Same as 


At= BF Bs= Ce Cs= 1s 


a2ave state 


snem= SAVE_STATE ----- shaletatanatatatanatenehetete ws2===- sialatatataiateianetatatae --1 


The current State of the interpreter will be saved in the Run 
Structure Nucteuse (for MCP use onty). 


“<-> TEST tenner cc seen ence eres nce ctenanecnemewenanenensecen| 


For compiler and interpreter debucging only. (See also Test in 
STANDARO FUNCTIONS Sectiond.e 
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Thaw Progra 


SSS THAN. PROGRAM. (PSS e SS H8 see es Se SS Sse ee SSeS SSeS] 
This procedure unfreezes the program» anc altiows it to be moved 


or rolied out of semorya. it dees rot force the program to be 
rotted oute 


Translate 


ecerw= TRANSLATE == € =" Source -" » =" Source Size “" » ="e"= a= > 


>-=- Taple -- » == Destination Size -- » =" Destination -- ) --1 


Source and Destination must be Address Generators. Source Sizes 
Tables and Destination Size are Expressions. Source is assumed 
to consist of items of Sourca Size Cin bits). Table and 


Destinaticn are assumed to consist of items of Destination Size 
Cin bits). Each item ir Source is used as ¢ subscript into Table 
te obtain an item which is placed into Destination in the same 
ordinal position as the source. 


Example: 
DECLARE 
BITSTZING BIT €76)» 
CHARSTRING CHARACTER C9)» 
TRANS_TABLE BIT €i6 * 82> 


TRANS_TABLE 3= "O123456/789ABCDEF "> 

BLIISTRING 2= aF20654112a5 

TRANSLATE CBITSTRING» 4» TRANS_TABLE> 8» CHARSTRING)s 
DXESPLAY C"™BLISTRINEG = a™ CAT CHARSTRING CAT “a")5 


The above exampte converts a bit string into the equivalent 
hexadecimal character string for cisplay purposes. 
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cac- zip =~ € == 
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Expression <So oi: “Sees Sseese = 34455 =55s= j 


The Zip statement ailows the program to pass control instruct ions 
tc the MCP. Expression should generate a character string whose 
vaitue is a vatid MCP control cogmand as documented in the MCP 
CONTROL SYNTAX Product Specification. 
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FILE DECLARATION 


[tC wet ewww omen es enae ses , Beem es mee we eee eee ee mom | 


1 
em" FILE -=~- File Name s7*7re-"- wsec--- mac ew en ence cen nes anenan=| 
1 
1 [<nenee 7 meneenn i 
1 1 i i 
i-- ( <9" File Attribute --- ) =-1 


K Fite Declaration witt generate an FPB with the default file 
attributes modified by the e¢ettribute List. The File Namer» when 
used in an Expressione witt yield its FPR numoder Cthe first file 
declared will be 9). 
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File Attributes 


The following List of file attributes are those that are atltowed 
in File Declarations. 


where an attribute requires a Boolean value» the value must be 
TRUE or FALSE.» Where an attribute requires an integer or string» 
the value aust be a constant. Most attributes which expect 
mnemonic values wilt also allow an integer canstant. However» 
caution should be used whenever substituting an integer for a 
manetonice Since the integer values in the File Oectaration 
statement are different from those in the Get/Put Attribute 
statemants.e 


Refer to the MCP COMMUNICATES AND STRUCTURES Product 
Specification or the MCF CONTROL SYNTAX Procuct Specification for 
a more detailed exptanaticn of the 81000 file attributes. 


wwe= ACCESSMODE c~sere= = sees SERIAL ste ewtneeneceeren=- -- 
i 
t-- RANDOW ws<--2---1 1 
i i 
I-- DELAYEDRANDOM --1 { 
i 


& 
i 


BLLOCATEATOPEN. === = S52" Bootesgn =" 3Se2=<5<+52 see } 
| 
== - ARE ABLOCKS.  ="Ser=". = -s=<== integer  ““s."+s=s= a a } 
| 
=e ‘AREALENGTH “<= +-= = <<< Integer <<e<-<7--- “ssc seenan i 
i | 
jem “AREAS. @ 39s sese= “se I Sees Integer, = Tss=>= = momen | 
i { 
§<-- AUDITED ------ Se ena = a ACoA Can -se SSH SoS se ee ee] 
| i 
fe PACKUPKIND jwses2*2* = see-2- DISK Sawer esses se ceeseesee 1 
I I j 1 
i zo" 6 =6T APE Cert j 
i i ! 1 
i f-- EITHER -~] 1 
t i 
t=" “(BACKUPPERMITIED: ==. =. see “DENTEARE “eee Sees eee er=] 
i { | 1 
I i-- DONTBACKUP <--] | 
i | 1 | 
1 i-- MUSTB6BACKUP <-~!I ] 
i ] 
i=~. #LQCKhSIZE  <s-o- = j=: ser [nteqtr. “““-<-SSs%33+=-=s 1 
1 i 
P-- BLOCKSTRUCTURE —<— =. se FISED! seseen =e = aS SS2 eee 1 
1 
V 


f-- VARTABLE <-~1 ¥ 
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BE ewe See ow 


=~ BUFFERS 


“= CUENSITY 


CEPENDENTSPECS <== 


“- DIRECTION <e------ 
“- DUMMYFILE ------ = 
“- ENDOFPAGEACTION -- 
“- EXTEND <--+--- eee 

EXTMODE <--------- 


~~ FAMILYINDEX 


“- FAMILYNAME ------- 
em FILEKIND sse7-2- -- 
-- FILETRANSFER ----- 
“- FLEXIBLE sce------ 


ii 
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v 
1 
Integer ss et ew cesses ceces n 
i 
BPI200 «eres en ae scanseese| 
| A 
BPI556 --~1 1 
i J 
BPI800 --<-1] 1 
{ i 
BPI16CO =~! 1 
1 i 
BPL6250 <==] 1 
i 
Boolean swt eter sete er en 1] 
} 
FORWARD crcr-- ee me ae sa == 
1 
REVERSE 71 1 
i 
Boolean =seett ts eesrerse= i 
Boolean  cs2ete7---- i eid a 
Boolean tsetse r essere r=-- =] 
i 
EECDIC -Ssr=s=2= a Se aie =| 
{ j 
ASCII --<-1 i 
i 1 
SCL =<==-] i 
1 1 
BINARY <-~1 1 
| 
Integer cs ssstceets2=- | 
| 
String ““c3s37sssee--s-= -4 
i 
DATA a ee a ee j 
i 
COE: :=<+=<<s -=-| 
j 
INTRINSIC --3-4 


INTERFRETER =I 
! 


j 
i 
{ 
1 
, 1 
1 
1 
PSEUDC_CARD <=1 1 
i 


Bootean 


Bootezn 
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v 


i-- FOOTING <------- — 
I-- FRAMESIZE <------~- 


i-- HOSTNAME -<------- 


INSECURE ‘SS se eeee= 


INTNAME we eenseees 


INVALIDCHARS ---=- 


ee 


a  - o 
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y 
i 
Integer aeauasanwnan @ a ee oo | 
4 
Integer  =s***7se-- neem n |] 
} 
String a eo oe —— mm ae we | 
] 
Boolean oe ae ae ee ee on | 
j 
String =a ee ee ee} 
} 
REPORTALL 9 -=----*------=-1 


1 
REPCRTIFIRST --1 i 

i 1 
DONTREPORT =~! j 
1 
v 
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INTNAME =e a = a ee | 


INVALITDCHARS 7." = -<=-0 


KIND ceceeterreere = nero 


C 
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v 
1 
String -sttctsccese--- “=-4 
1 
REPORTALL 9 seat tsser--=-- i 
1 
REPORTF.IRST -71 


DONTREPORT <1 


j 
i 
1 1 
] 
i 


DATARECORDER 9 =~-9=-"----~ 
i 
DIsi; Seessee ree 
1 
ODT 9 weree------- i 
i 
PAPERPUNCH =-"--~1 
i 
PAPERREADER ---~~1 
1 
PORT com ers--e--- 1 
1 
PRINTER s--""""7-1 


PUNCH ssn nea ae oem |] 


PUNCH89 
PUNCHS6 
QUEUE - 
READER 
READERS G 
READERS A 
READERQE 
REMOTE 
FArPE. == 
TAPECASS 
TAPEPE 


TAPE? = 


RTER “=<*<4 


j 


_ 7 a oo oe me ] 
i 
ETTE --=-1 
—_ om oe om ef 
weecnen--- { 
i 


ime 
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OPENONSEHALFOF ~-==-- 


CPENWITHPRINT 


“= GPENWITHPUNCH 


v 
i 

I-- LABEL ------ sedoutees 
1 

1 

1 

r 

| 

I 

i 

f-- LINEFORMAT <--=--- 
i 

i-- LOWERMARGIN “----- 
{ 

I-- MAXRECSIZE -~"---- 
! 

i-- WAXSTATIONS <-"~--- 
i 

I-- WAXSUBFILES ------ 
I 

im- MINRECSIZE ----- -- 
1 

I-- MYNAME -oe-e------ 
i 

i-- MYUSE -<------- ids 
i 

j 

1 

P| 

1 

{-- NEWFILE ce-------- 
i 

I-- OPENNOREWIND <“---=- 
i 

i= 

i 

i 

1 

i 

{ 


I-= OPTIONAL =-*----=- 
i 
In-- QTHERUSE 9 =~------- 
i 
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v 

1 

EQCOUICLABEL. Sos teseeeer==4 
1 1 

ASCIILAEEL -=--1 1 
1 1 

OMITTED «--~-=1 1 
1 1 

QMITTEDEOF <-~-~] I 
1 

Boolean seer esse ate ees * 1 
J 

integer. Sees essecsS = 1 
I 

integer secs" +- Se ee ae =a 
i 

integer - SS lors te teres= 1 
1 

Lake ger tS SSeS ee SST = 4 
1 

Pnteger: SSNs asS see 2 sess = i 
J 

SLeing Sess eeerrsssSrs= === 
1 

iG). (ASS se esas els Seen Sas 4 
i 1 

IN <«*71 i 
1 i 

OUT <--1 J 
i 

Hoolegn << "s---ssses=== 4 
j 

B00 ein: S=="=Ssere= ss ered 
{ 

Boolean oss 444" SaaS eS 1 
i 

BODL60n- SSStss seer shies ess i 
L 

BOOLean “Shea te sese ss 4 
1 

Boolean “=""--- ales asl 1 


I¢ mee 2s a 2 a a a A te ee ee  ™ sn am 1 


i 
i 
i 
i 
i 
QUT =-"-2-1 
i 
v 
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v 
i 
I-- PAGESIZE ---"---- 
i 
I-- PARITY <ortene--=- 
{ 
i-- PRINTCOPIES <----- 
I-- PRINTDISPOSITION - 
i 
i 
1 
I-- PROTECTION ------- 
i 
i 
i 
i 
i 
I-- PROTOCOL --=------ 
i 
i--  GFAMILYSIZE ------ 
i 
l-- QMAXMESSAGES ----- 
| 
I-- REMOTEHEADER ---=- 
j 
I-- REMOTEKEY ----"--- 
4 
i-- SAVEFACTOR ------- 
i 
f-- SBPFILEKING “<---> 
i 
j 
I 
i 
i 
i 
I 
i 
i 
i 
i 
i 
j 
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V 

j 

Integer certs csererse= I 
| 

QDD --+--------------- oad, 
1 F 

EVEN <--1 ; 
| 

Integer sew e em ef 
1 

EQJ 2 ee ee ee ee ee ee ee J 


CLOSE 


DCNTPRINT -~1 


1 

1 

| 

i 

TEMPGRARY ee eee ee a oo ee me | 
i i 

ABNORMFALSAVE --<-] { 
1 1 

SAVE. “9S eee eos { j 
1 i 

PROTECTED: -<=s==) 1 
| 

Integer see eee ee oe | 
j 

Integer se essescsseece== =} 
1 

Integer "ett seen sere ses-= j 
i 

Boolean  <«"""-"-4- i a ==} 
i 

Boolean set seca ween en an] 
i 

Integer ssc sts tse nseree= i 
| 

DMSDICTIONARY ceeeeoee == “] 
1 1 

NDLCOLE ‘eee e-e= j j 
I 

JOBCODE s#<"2-"-= =] \ 
{ 1 

SBL2CCDE -«*------] 1 
1 i 

SULZSYASOUL.. -*"<—e<- { 1 
! 1 

SDLZUASOUNDCODE <=] i 
j 

i 1 

PRIVATE -~1 | 
i 1 

GUARDED -~1 N 
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SECURITYUSE 


IN 


IQ 
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y | v 
j 1 
t= “SECURLIVIYRE. er eee oS. exeere: “PUBLIC: “<= ss3 3355-5 = catia aianl 
1 i i | 
i I-- PRIVATE -~-1 { 
{ 1 1 i 
1 im- GUARDED <=! 1 
| t 
bes" SECURLITUSE “sess = seek = IN S25 SASS SSeS eee SS Ses] 
{ 1 1 1 
{ i= CUT -1 i 
j i 1 H 
| i= 1, swe] 1 
{ j 
1 1 
f<-— ‘SERTALNQ. <-=2=- —— = eeees String “-<==<= saad aa asa i 
i 1 
Yer~ STATIONSALLOWED =" = «---" integer -=<-s=<= =a ee ee 
j { 
f=" ‘TITLE... = = -— String <t2e ses sse-- Ska a i i a a es le a -~4 
1 ii | 
i / - String “! 7° ON =~ String 4 1 
| 4 
b-= -JRANSFORM FILENAME “= = “<= === Boolean. <<-s=<=<--<==< 1 
i ! 
fs". TRANSLATE SoS ss== = eee TFORECESOTT. =-3S-esse+3= === i 
i i } I 
i i== NCSOFT. -="-<e41 { 
i 1 
o>. TNET NAME. ==SSS0e""2 <=. SSeS STP ing. ““Ss 239 rorssee=s=74 
i j 
i-= UP DATEFILE  ces3e%2" = cf -=< Boolean “98 seec ees e or ee=] 
i | 
i-~ YPPERMARGIN weeret" = e200" Integer eee ee ee eee ee] 
| 1 
J-- USERBACKUPNAME --7 = ==" Boolean $c “s7 ster sterrer--- 1 
j j 
i-~ VOLUMEINDEX j“«s"e"7 = eer"= Integer sess sscesresse adel | 
j ] 
i==. WIRKEILE: =se<s=<=> = swee= Boolean esse tstsssesesecs 1 

Exaaptle: 

FILE INFILE CKIND = DISK» 
DEPENDENTSPECS = TRUE» 
MYUSE = IN» 
BUFFERS = 
TITLE = "INPUT? /"FILE” ON *P™)3 
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fefault Eile Attributes 


This section lists the default values which are used by SDL2 when 
an attribute is not specified in a Fite Declaration statemente 
The attributes which are not tisted here default to zera» blanks» 
or FALSE depending on their type. 


ACCESSMODE SERTAL 

AREALENGTH = blocksiza *« 100C 

AREAS = 25 

BACKUPPERMITTED = DONTCARE 

BLOCKSIZE = maxrecsize 

BUFFERS = Il 

FRAMESIZE = 8 

INVALIDCHARS = REPORTFIRST 

KIND = OFSK 

MAXRECSIZE = 80 or 96 if card device 
132 if printer device 
2240 if rewete device 
130 in alt other cases 

MYUSE = IN if input only devices 

OUT if output onty devices 


To in ati other cases 


NEWFILE = TRUE if printer devices 
FALSE tr att cther cases 


PRINTCOPIES = 1 
PRINTCISPOSITION = E0J 
SAVEF ACTOR = 1 

TITLE = internat file name 


VOLUMEINDEX = 1 
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SHITCH FILE DECLARATION 


] tees ee ne eee eee oe ‘ 
i je =<==; 9 S355) i 
i | 1 1 
“= SWITCH FILE --~ Switch File Name -" (€ =*- File Name =" ) 7-371 


A Switch Fite Ceclaration allows a group of fites to be 
Selectivety accessed. A Switch File Name with a subscript may be 
used anywhere that a File Name is atlowed» except within a Switch 
File Dectaration. The files are numbered frow 0 to Nwl» where N 
is the number of files in the switch file tist. If any of the 
files have a kind of PORT or REMOTE» then atl the files in the 
List must be of kind PORT or REMOTE. 


cxanple: 


FILE USER1 CKIND=DISK)» 
USER2 CKIND=DISK)>» 
USE? 3 CKIND=DISK)>» 


SWETCH FILE USER_LFILE CUSERIs» USER2» USER 3)3 


DECLARE 
USER FIXED; 


OPEN USER_FILE (€0)> % opens file USERI 


FOR VSER == 0 TO 2 
WRITE JSER_FILE CUSER) CBUFFERIs 2% writes to adi three files 


CLOSE USER_FILE (€2)> % closes file USERS 
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ZNPUT/ZOUTPUT STATEMENTS 


All Input/Output Statements operate on a File Id. A File Id may 
be any Filer Switch File» or File Pointer. 


The sCL2 Input/Output Statements map directly onto the MCP file 
handling communicates. Fefer to the Y¥EP COMMUNICATES AND 
STRUCTURES Product Specification for a more detailed exptanation 
of each I/0 communicate. 


For the purposes of random I/O» record numbers are zerowmretative. 


On §ranch 


eer an uN fata Condition pease Statement  """"-- ee a ed 


some of the Input/Output Statements allow On Branches to be 
specified. An Gn Branch is used to indicate that the program 
wishes to handte the associated error condition instead of 
fetting the MCP handle it. If the Conditicn specified in the On 
Branch is true as aeresuilt of executing the Input/Output 
Statement» then the Statement fotlowing the CN Conditton will be 
executed» If the Condition is fatses then the Statement wilt be 
ignored. More than one Gn Branch may be specified in a Single 
Input/Output Stategent» aithough cniy one Condition can be true 
after executing the Inout/Outout Statement. 


Example: 


READ_OK := TRUES 
GPEN INFILES 
ON FILE_MISSING CG3 
DISPLAY C"FILE NOT FOUND")3 
READ_OK 3= FALSE3 
END? 
ON FILE_LOCKED DC3 
DISPLAY C"FILE IN USE BY ANOTHER PROGRAM™)S 
READ_OK 3= FALSE3 
ENDS 


WHILE READ_OK DOs 
READ INFILE (CBUFFER)> 
ON EOF READ_OK s= FALSE? 
WRITE OUTFILE COUFFER)> 
END» 
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Qoen 

“=~ OPEN -- File Id corcrtenrsecre-ne- enecen sere ens---- stalaheaiatene > 


1 { 
j-- [ =" Subport == ] 2-4 


f-~- RETURN 3-1 i-~ GN_BEHALF_GF -~ Expression =I 


i-- 3 =" ON o---- FILE_MISSING =---""°> Statement ----! 
i 
i-- FILE_LOCKED -----1 
i 
i-- EXCEPTION -<------! 


The Gpoen Statement allows the programmer ta explicitly open a 
file and to handle error conditionse 


Nate that alt open options Should be set before the Open 
Statement is executed» using either a File Declaration Statement 
or a Put Attribute Statement. For examples OPENONBEHALFOF must 
be set to True for the ON_BERALF_OF clause to take effect. 


Exaaple? 
OPEN SOURTCE> 
ON FILE_MISSIANG SOQURCE_PRESENT = FALSEs 
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Close 


CLOSE -- File Id 


> ee ee ee ee ee Mm Ee Ee ew ee ee eee ee ee ee ee ee ee oe eee ee ee oem on 


i- WITH ~4 
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PeSe 


i 1 
Subtport “24 


Sl a aah 


recent po tata ecnens i 
{ 1 
REEL ae eae asmeawee ] 
1 
RELEASE <29cceenen=-]4 
. 1 
PURGE ----=--- ee 
j 
REMOVE ---~ee--=---1 
i 
CRUNCH -------------] 


2228 3519(C) 


2am a 


l-- NOLREWIND ----------1 

i 

I-- OVERRIDE_SECURETY ~~! 

i i 

I< LOCK cows enneenenen] 

i i 

I-~ IF_NOT_CLOSED --"---1 

i 1 

Im- ROLLOLT ------------ i 

1 

l-- AUDIT ---2-e---- weet 

> mm —_ 2 1. = oo eee ee ee ee he a eh he hm he ok he hl he UL he lL aeaumunuweenm sa ue aw wm 2 om oe me om om | 

I i 
Peors 3 s--- ON =2-- EXCEPTION -~-- Statement --7-1 


The Close Statement atl 
file and specify how i 


Example: 
CLOSE SOURCE 
CLOSE NEWSOUR 


{ows a programmer to exolicitly 


t is to be disposed. 


PLRGE> 
CE LOCK» REMOVES 


close 


a 
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Reag 
“== READ -- File Id ec °*------ ewe eww eee cee eee cere ee ee ew en een» 
i 1 
Jm-- { s3e-- Disk Key -cotorte- J ==] 


j 1 
I-- Remote Key ~“"-71 
] 1 
I-- Queue Member -~] 
1 i 
f=“ Supoort ““---= -j 


eee aS Batter Se Sees esse ee ae a [SSeS > 
1 1 
t-- WITH =~ RESULT_MASK =~ Mask ~~! 


| ts eee we www ene ees ee suse wae“ ue ueenun wan ans Meme ee ee ee eee ee ee | 


i | 
> OE On CT TST TT TO ee mee | 

i i 
tee of SON Seer] LUE eae reese reese Statement --or4 

J 1 

Im-- INCOMPLETE_T0 -"---~1 

J 1 

two EXCEPTION ees eeeeee~ 4 


The Read Statement adlows a record to be read from a file. 
Buffer must be an Address Generator. 


Example: 
READ RANDOM_FILE CKEY] CBUFFER)s 
ON EOF SAD_KEY c= TRUE>S 
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Write 


WRITE ~~ Fite Id 


{ 


aa a st a ai ae ee ERE EE ee 
i i 1 
i-- ( -= Buffer “4 {= 


) 


i-- 
i 
im- EXCEPTION 


INCOMPLETE_I 


The Write Statement alicnws a record to be written to a file. 
and wiit be done after the Suffer 


spacing may also be specified» 
is written. 


FKxanpie: 


WRITE LINE DOUBLE C*"HEADING 


WRITE LINES 


“~ Queue Member 


NQ ak ee ek ee ee ee ee | 


SINGLE “<=<<<<<-= <4 
DOUBLE ‘—<+=-s=== 


Channel Number 
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De Oeme Be MR Ee 2 we eee a oe ses a me > 


] wesenceeenn--4 


1 aod 
I- TOP -1 


Disk Key 


a 


Remote Key ] 


i 


subport 


| 


1 
- WITH RESULT_MASK -- Mask ="4 


i 
we- Statement ~""71 


0 


The 


LINE™)> 
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2oace 
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. { 1 
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i 
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Senlertesteenlaheentnteretentcaieaetateateatatatateded sew ee ween sewn  leealeedeteten ’ 
i 
esr e Sees: cise teas eee Ries aaa as si ec ao a al i 
i 1 
fe" 3 ==- ON =<" EGF «9-747 " eeee== Statement -~-1 


I- INCOMPLETE_IO -1 
{ 
t- EXCEPTION -----! 


The Space Statement is used to skip over records in a sequential 
Filee If TO Expression is used it must be &@ non==negative numbers 
and will position the file at that records Expression atone 
specifies the number of recerds to space from the current records 
with a positive vatue spacing forward and a negative value 
Spacing backward. TO_EOF wiit space the file to its current ende 


akin 


san «€6SKIP 0 oer File Ig were-- TO "7 Channel Nusber --~] 


The Skip ‘Statement wilt cause the tine printer to skip to the 
specified channel number on its carriage tape. Channel Number 
must be a constant rangince from i to 12. 


2eek 


ee~ = €6SEEK oo oteee=) 6 File Id =""7- € == Expression -* J] 7-71 


The Seek Statement is used with randon disk files to read a 
record into the MCP*s buffer area in preparation for a Read of 
that record. A Seek Statement performec immediately before a 
Read Statement is tess efficient than just reading the record. 
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Put Ete Attribute 


w=-~ File Id --~ 2 =~ Attribute wort ttt ltrs tere rs rns enccec ee > 
t-- € == Index =~ ) -=-1 
pees st ee awe Valuq see ee ewe meee eee en aaa ew eee ee = —= | 


The Put File Attribute Statement altows an attribute of a file to 


be changed dynamicaity 


at runtime. 


can be either a 


oredefined mnemonic for the attribute Cas specified in the File 


Attributes Section)» 


The following 
asterisk must be 


or an Expression. 


attributes are allowed. 


Attributes marked by an 


ACCES SMODE FLEXIBLE PAGESIZE 
ALLOCATEATOPEN 
AREAACORESS * FCOTING PARITY 
PRINTCOPIES 
AREASLOCKS FRAMESIZE PRINTDISPOSITION 
AREALENCTH HOSTNAME PROTECTION 
INSECURE PROTCCOL 
AREAS INTNAME QFAMILYSIZE 
AUDITED INVAL IDCHARS QMAXMESSAGES 
BACKUPKIND K IND RE MOTEHEADER 
BACKUPPERMITTED LABEL REMOTEKEY 
BLOCKSIZE LASTRECORD SAVEFACTOR 
BLOCKSTRUCTURE LCWERMARGIN SBPFILEKIND 
BUFFERS MAXRECSIZE SECURITYTYPE 
MAXSTATIONS SECURITYUSE 
COMPRESSION « M@XSUBFILES SERIALNO 
DENSITY MINRECSIZE STATIONSALLOWED 
DEPENDENTSPECS MYNAME TITLE 
TRANSF ORM_FILENAME 
DIRECTION MYUSE TRANSLATE 
DUMMYFILE 
ENDOFPAGEACTION UNITNAME 
EXTEND NEWFILE UPDATEFILE 
EXTMQDE OPENNGREWIND UPPERMARGIN 
FAMILYINDEX * OPENONBEHALFOF USER BACKUP NAME 
FAMILYNAME OPENWITHPRINT VOLU MEINDEX 
FILEK INO GPENWITHPUNCH WORKFILE 
FILENAME OPTIONAL YOURHOSTNAME * 
FILESECTION O THERUSE YOURNAME * 


FILETRANSFER YOURUSERCODE «* 


Example: 
CARDS» TITLE 2= "SD0L2_ SRC/EXPRESSTION ON SODL2"3 
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gaat Eide Attribute 


wore File Id 5" 2 =e Attribute ccccet essere on--- oonere-e] 
1 
l-- € -- Index -= ) 7-1 


The Get File Attribute Statement returns the vatue of a file 
attribute. The vatue returned witt be either bootean» numeric or 
characters as specified in the MCP COMMUNICATES AND STRUCTURES 
Product Specification. Note that the ATTIRIBUTE_VALUE standard 
function can be used to determine the numerical equivalent of a 
mnemonic attribute value (See STANDARD PRCCEOURES AND FUNCTIONS 
section). 


The Following attributes are atlowed. Attributes marked with an 
asterisk must be indexed. 


ACCES SMODE FAMILYNAME OPENWITHPRINT 
ALLOCATEATOPEN 
ALTERCATE 
AREAADDRESS * FILEK IND OPENWITHPUNCH 
AREAALLOCATED «* FILENAME OPTIONAL 
AREABLOCKS 
AREALENCTH FILESECTION OTHERUSE 
AFEAS FILESTATE * PAGESIZE 
FILETRANSFER 
ATTERR FLEXIBLE PARITY 
PRINTCOPTIES 
ATTWALUE FCOTING PRINTOISPOSITION 
ATTYPE FRAMESTZE PROTECTION 
PROTOCOL 
AUDITED HOSTNAME QFAMILYSIZE 
INSECURE 
AVATLABLE INTNAME QMAXMESSAGES 
BACKUPFILENAME INVALIDCHARS RECORDNUMBER 
BACKUP KIND KIND REMOTEHEADER 
BACKUPPERMITTED LABEL REMOTEKEY 
BLOCK LASTRECORD SAVEFACTOR 
SBPFILEKIND 
BLOCKSIZE LASTSUBFILE SECURITYTYPE 
SECURITYUSE 
BLOCKSTRUCTURE LINEFORMAT SERTALNO 
SIMPLEHEADERS 
BUFFERS LINE NUM STATE 
CENSUS * LCWERMARGIN STATTONSALLOWED 
CHANGEDSUBFILE MAXCENSUS «* SUBFILEERROR « 
COMPRESSTON * MAXRECSIZE TITLE 
MAXSTATIONS TRANSFORM_FILENAME 
CREATIONDATE MAXSUBFILES TRANSLATE 
CREATIGNTIME MINRECSIZE TRANSLATING 


UNTTNAME 
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CURRENTBLOCK MYHOST NAME UPDATEFILE 
DENSITY MYNAME UPPE RMARGIN 
DEPENCDENTSPECS MYUSE USEDATE 
DIRECTION NEWFILE USE REACKUPNAME 
DUMMYFIOILE NEXTRECORD VOLUME INDEX 
ENOOFPAGEACTION 

EXTEND GPEN WORKFILE 
EXTMODE OPENNORE WIND YOURHOSTNAME * 
FAMILYINDEX * OPENONBEHALFOF YOURNAME « 


YOURUSERCODE * 


Examptes 
HWRITE LINE € "SOURCE FILE = " CAT SOURCE.TITLE 93 
IF SOURCE.KING = ATTRIBUTE_VALUE CKIND» READER) THEN 
INPUT_FRCM_CARCS 3= TRUE 
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SEPARATE COMPILATION 


SDL2 provides a mechaniss for dividing a program into several 
units» each of which can be incividually compiled. There are 
three types of units ° Global units» Separately Compiied units» 
and Independently Compiled units. These incividuatiy compiled 
units are tater boeunc together by the SDL2/7BINDER» and calls 
across unit boundaries are resotved. 


A Gtobat unit containing all globat data ceclarations and the 
outer toop of the program must be compiled Cwithout syntax 
errors) prior to the compitation of any of the Separates units. 
The symbol table for alt giobat declarations (Cexcluding 
orocedures) is saved in the unbound gtobat code file for tater 
use by the Separate units. 


Ahen a Separate unit is compiled» the coapiter toads the symbot 
table from the Gtobal unit» making ali gtobal dectarations 
accessible to the Separate unite <A Separate unit may not dectare 
any gtobal variabtes or files» but it may declare gqiobat types» 
canstantse sets» records and defines which are accessible to any 
procedure in that unit. Note that compiter control options and 
conditional compilation booteans set in the Gtobat unit wilt not 
affect any of the Separate units. 


Both the Global unit and the Separate units have access to att 
global data declared in the Global unit. In addition» they may 
caii any texic tevel one procedure which is declared in another 
unit» provided the procedure i585 identified by an EXTERNAL 
procedure dectaration in the catting unit. Externat procedure 
calis witht be resotved by the binder. The binder witt also do 
any parameter checking which would have been done by the compiter 
nad the procedure been decilared tocaily. 


An Independent unit iS one which accesses no giobat data or 
external procedures» and so may be bound with any Global unit. 
An Independent unit way not dectare any global variabtes or 
files» but it may declare gtobal types» constants» sets» records 
and defines which are accessible te any procedure in that unit. 


Each unit is attlocated one page in the Segment Dictionary» so 
there is a Limit of 64 units to a program. The Global unit will 
always be atlocated to Page 0. 
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The fottlewing ccmpiler centrol options are used when compiling 
unbound unitse These cptions should appear at the front of the 
input files precedinc alt conditional compitation statements» 
declarations and executable staterents». The onty statements that 
Can precede these options are other compiler control statements. 


CREATE _GLOBAL 


Thais is used to specify to the compiter that a Globat unit 
is Being compited for tater binding with Separate and/or 
Independent units. 


YSE_ GLOBAL C€file name] 


This 185 used to specify to the compiler that a Separate unit 
is being compiled for tater binding with a specific Global 
unit. The symbol tabte from the Global unit will be toaded 
by the compiter for use by the Separate unit. 


INDEPENDENT 


This 18 used to specify to the compiler that an Independent 
unit is being compiled for Later binding with any Global 
unit. 


Ail Globals Separate and Independent ‘code files’ will be typed 
as S$DBL2 Unbound Code files and wiit not be executable. 


The SDL2@/BINDER wilt bind together a single Global unit and one 
or more Separate or Inderperdent unitsSs procucing an executable 
5SBL2 Code file. The binder wilt verify that all units were 
compiled with the same version of the compiler and that ait 
Separate units were co@pited with the same version of the Global 
UNTE » 


see the BINDER EXECUTION Section for a description of how to 
execute the SDL2/8INDER. 
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COMPILER CONTROL 


Compiter controt opticns must be preceded by a single or double 
deiflar sign (8 or $8)» begirning in column 1 of the source image. 
If a double *$8* is used» then the control options are considered 
to be permanentey and will be inctuded in the new source file Cif 
one is requested). If a single *$* is used» then the control 
options are considered to be temporary and with not be included 
in the new Source file. 


CNG] AUTO_SEGMENT (Defautt = TRUE) 
The compiter will automatically break the program into 
seqmentse The Segment size 1s determined by the 
AUTO_SEGMENT_SIZE option. 
Segment breaks wiail occur at the end of a procedure 
when the code size exceeds the size specified for 
AUTO_SEGMENT_SIZE. 

“AUTO_SESMENT_SIZE ({Defautt = 20000) 


Specifies the segment sizes in bdits for automatic 
segmentation. 


Example: 


$ AUTO_SEGMENT_SIZE 16000 


CNG1 CHARGO (Default = IRLE) 
When TRUE the scanner witt not distinguish between 
ugpercase ard lowercase letters in identifiers» 
inctuding reserved words. 

CNG] CLEAR_LOCALS (Default = FALSE) 
When TRUE the compiter will generate code to clear’ the 
focal data space to zeroes upon procedure entry. In 
addition» ait descriptors will be initialized as though 
the SINITIALIZE_REFERENCES option was set. 

CNG] COCE (Defauit = FALSE) 


When TRUE the compiler wild List the code generated. 
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CREATE_GLOBAL (Default = FALSE) 


Specifies to the compiler that the Global unit of an 
individually compited program is being compiled. 


{INGO] DEBUG <Option> 


This is for compiler debuqging. Option may be either 
CHECKS» DUMP» ODUMP_SYMBOL_TABLE» RECOVERY» SCANNER> 
SYMBOL_TASLE» TYPES» or XREF. 


DYNAMIC_MEMORY Cdefault = GO or minimum of 200) 


Specifies the amount of dynamic memory in bits. 
Dynamic memory is used for paged arrays. The default 
dynamic memory calculated by the compiler is sufficient 
for storing cne cage of each global paged array» olus 
one page of each tocal paged array in the flexic tevel 1 
procedure which requires the most dynamic memory. The 
user can make a better estimate of the dynamic memory 
requirements based on the actuad number of paged array 


elements that will be accessec at any one times Note 
that each memcry link requires 100 bits» and each page 
table requires 72 bits oper entry. In additions 


appreoximatety 209 bits are required as work space for 
the intrinsic. 


ERRCRLIMIT (Default = 100) 
Specifies the maximum number cf errors which will be 
allowed. The compile wilt terminate when this Limit 1s 
exceeded. 

{NO}? ERFORLIST (Default = FALSE) 
When TRUE» the compiler wilt print the error messages 
in a separate error Listing file CERRORS). 

FAMILY (Default = system disk) 
If a controd card file tittle does not explicitty 
specify a pack namter the pack specified in the FAMILY 


controt option is used. The control cards which aliouw 
file titles are INCLUCE>» MERGE» NEW» and USE_GLOBAL. 
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CNOT INCLNEW CDefault = FALSE) 


When TRUE» the source images read in from an INCLUDE 
file will be copied to the new source file CNEWSOURCE). 
The INCLNEW option takes effect only when the NEd 
option 15 specified. 


INCLUCE Clibrary file titite] 


Specifies that a tlibrary source is to be read in and 
compiled. The remainder of the source Image may 
contain the Library file titte. If no title is 
specified» then the external name of the LIBRARY fite 
will be used. No other control options may fotiouw the 
S$INCLUDE parameters on the same compiter controt itmage. 
Images from the LI®RARY fite will te flagged with an 
"I" in the cutput listing. A Library file may not 
contain an INCLUDE statement. 


INDEPENDENT 
Specifies that an individuatty compided unit is being 
cospiled that does not access any gtobat data. The 
Independent unit treated can be bound inte any program. 
CNO] INITIALIZE REFERENCES (Default = FALSE) 
When TRUE» the compiter widi generate code to 
initialize att reference variables to their dectared 
type and tength Cif specified) with an invatid address. 
Yse of an uninitialized reference variable will then 
cause aruncttime Read or Write Out of Bounds error. 
INTRINSIC 


Specifies that an intrinsic is being compiled. 


CKO] INTRINSICS_ALLOHED (Default = TRUE) 
If FALSE» any use of intrinsics will be flagged as an 
errofre If INTRINSIC is specified» then 
INTRINSICS_ ALLQUWUEC is automatically set to FALSE. 

CNO} LIST (Default = TRUE) 


Specifies if a tisting iS to be produced. 
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CNOI LISTAMPERSAND (Defautt = TRUE) 


If TRUE» conditionat compilation statements odeginning 
With an *&8* will te includeg in the Listing. If FALSE>» 
Statements beginning with an 48% will not be tisted. 
NO LIST overrides LISTAMPERSAND. 


CNO? LISTOOLLAR (Default = TRUE) 


If TRUE» aadl temporary compiler control statements 
(those heginning swith a single *8') wilt be inctuded in 
the Listing» If FALSE» the temporary compiler control 
Statements witt not be tisted. Permanent compiler 
control statements (those beginning with a double #884) 
are always printede regqardtiess of the setting of the 
LISTDOLLAR optione NO LIST overrides LISTDGLLAR. 


{NOI LISTHEX Cid chars] (Default = FALSE) 


If TRUE» the code addresses on the output tisting will 
be printed a5 hex vatues instead of deciaal values. 
<id chars> wili be used instead of the code page number 
to preface the segment and offset» $s8VOID 00479500 


CNG] LISTINCL (Defautt = TRUE) 


If TRUE» scurce images from an inctuded tibrary fite 
will be Listed. NO LIST overrides LISTINCL. 


CNOI LISTOMITTED (Default = TRUE) 


If TRUE» source tages that are not compiled because of 
conditicnal compilation will stilt be disted. The 
omitted images will be flagqged with an "6" an the 
output Listing. NG LIST overrides LISTOMITTEO. 


MERGE fCsource file tithe] (Default = FALSE) 


Normatty appears as the first tine of the CARD file. 
Specifies that the CARD fite be merged with the SOURCE 
file. The file tittle of the source file may be 
specified on the rest of of the source imagee If it 15 
not specified» then the external name of the SOURCE 
file wild be used. Images from the CARD fiie will be 
flagged with a "P™ in the output listing. 


06/28/84 9-5 


BURRGUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUP B10090 SDL2 COMPILER 
SANTA GARGARA PLANT PeSe 2228 35190) 


NEW new Source file tittle] (Default = FALSE) 


Specifies that a new source file be created. The title 
of the new source fite may be specified on the rest of 
the source image. If it is not specified» then the 
external name of the NEWSCURCE file witl be used. 


P AGE 


Causes a page eject if listing. 


PROCEDURE_STACK SIZE (Default = 20) 


Specifies the maximum depth of nested procedure caits 
in this program. 


CNOD RUNTIME_CHECKS (Cefault = TRUE) 


When FALSE» all runstime checking will be suppressed. 
{For MCp use cnly). 


SEGMENT 


Causes a Seqment break to be generated. This option is 
aliowed only when it im#ediatelty follows the END of a 
PROCEDURE declaration. 


S EGMENT_PAGE 


Causes a page and Segment break tc te generated. This 
option is altonecdc onty when it ismedtately follows the 
END of a PROCEDURE declaration. 


[CNG] SEQCHECK (Default = FALSE) 


When TRUE» the compiter witl verify that the sequence 
number of the current source image contains onty 
numeric characters» and is greater than the sequence 
number of the previous source image. The sequence 
number may be alt btanks onty if the previous sequence 
number was also ali blanks» An invalid sequence number 
wild generate a Syntax errore 
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STATIC_MEMORY Cdefauit = pwinimus cf 10000) 


Specifies the arount of static memory in DitS. 
Increasing STATIC_MEMORY automatjcatdiy enlarges the 
operand stack» but not the procedure stacke 


CNOY SUMMARY CDefault = FALSE) 


When TRUE» the compiter will ocroaduce summary statistics 
on the output listing. If NO LISf is specified» then 
this summary includes atl information normatty found at 
the and of the source listing» in addition to the 
summary statistics. 


CNOJ SYMBOLIC_DUMP CDefault = TRUE) 


When set» symbolic information will be included in the 
code fite for use by the Analyzer. When reset» this 
information wild not be included in the code file. The 
code fiie wilt be smaller when this option is resets 
but the dumps witt not be informative. 


CNO?} TYPE_CHECKS (Default = TRUEY 


When FALSE» adil compile"tjme type checking will be 
suppressed»e Note that the compiler currently does only 
a limited amount of type checking. 


YSE_GLOBAL [Cglobat file tittel] 


Specifies te the compiler that a separate unit 315 being 
compiled. The tittle cf the global code unit may be 
specified on the rest of the source image» If no titte 
is specified» then the external name cf the GLOBAL file 
widi be used. 


VOID Csequence number i 


The VGID option may be followed By an optional Sequence 
Number.» Ati subsequent records in the SOURCE file witn 
sequence fieids Less than or equal to the Sequence 
Number wittl be deteted. If the Sequence Number is 
omitted» only the record with its sequence fietd equal 
to the Seaquence fietd of the VOID record will be 
deteted. The VOID optior may onty appear in the CARD 
file» and will onty delete records in the SOURCE file. 
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CNG] WARNFATAL CDefautt = FALSE} 


{NO} XREF 


When TRUE the compiter wilt treat all warnings as fatal 
syntax errorsa 


(Defautt = FALSE) 


When TRUE the compiler witl produce a cross-reference 
listing at the end of the norewal frogram listing. The 
cross “reference includes att defined and predefined 
identifiers used in the program» excluding reserved 
words- It also indexes Literals» ampersand booteans»e 
doltar aptions» ard do croup tabels. 


06/28/84 101 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
COMPUTER SYSTEMS GROUF Bid00G SDL2 COMPILER 
SANTA BARSARA PLANT PeSe 2228 3519(C) 


CONDITIONAL COMPILATION 


The conditionat compilation facility allows the programmer to 
Selectively compite blocks of code without the necessity of 
physicalty adding or removing recordse Ceoncitionat compilation 
control records must begin tn column 1 with an "&". 


SET AND RESET STATEMENT 


Pes, 1SEL, (Sess = “SSS ener son tronsnake: “Ss =sss ee oe ee =i 
i 4 
i- RESET ~-4 


The SET and RESET statements wilt both declare» if not atready 
declared» a conciticnaet cenpilaticn ogtion name» and SET it to 
trues, or RESET It to false. A reference to a conditional 
ccmpilation option name that has not been SET or RESET is an 
errors 


ZE STATEMENT 
“-- TIF --" Bootean Expression *"-" True Inctusion Block “<*> 


>< eee eee AA OR seacesmsenneeses §6FND 7-1 
1 i 
f-~ ELSE =" Faise Inclusion Block -~7! 


Boolean Expression 


[Keer smn seers e ere AND somes tne en nee nennn--] 
{ ! i j 
i Ps= :GR° --"4 I 
i i 
ee a ey ge eee Se, ee option name pre e pees poy gene Wome ey ge ele = 


The conditional compitdation IF statement is used to bracket 
Olocks of code tc be cempitled conditionatty on the resuit of the 
Boolean Expressions 
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Examples 

RRESET DEBUG_ALL 

RSET DEBUG_A 

A 3= Bs 


RIF JEBUG_ALL OF CEEUG_A 

WRITE LINE C*A CHANGED TO" CAT DEC TMALCA®B)DS 
RELSE 

WRITE LINE PAGEs 
REND 
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COMPILER EXECUTION 


The primary input to the coapiler is from the file CARD. 


FILES 

CARD pri@#ary source input file Cdefautt device type 
is DISK) 

SOURCE used if MERGE option is specified 

NEWSOURCE new source filer» if NEK option is specified 

COCE the generated code file 

GLCBAL coce file cf GLOBAL unit» if USE_GLOBAL is 
specified 

LIWE eutput Listing 

ERRORS error message listings if ERRORFLIST option 
15 true 

XRF internal file for saving token references if 
XREF is specified 

LIGQRARY file used to read in library source if INCLUDE 
is specified 

FPBS internadi file for saving file parameter blocks 


See MCP CONTROL SYNTAK Product Specification for details of MCP 
syntax to compile programs. 
Example? 


Co SLD2/GLOBAL SCL2 LIBRARYS 
FI CARD NAME SDL2/SQURCE/GLOBAL3 


Wr 
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BINDER EXECUTION 


see SEPARATE COMPILATION Section for a description of how to 
create undDound code files. : 


FILES 
CARD source input (default device type is DISK) 
CODE the generated code file 
LINE output Listing 
OBJ the unbound code files used as input 
SYMTAB internal file for saving symbol table info 
DESERIPILON 
The CARD file contains the kind request» listing the files to be 
pound atong with any options. The syntax for the binder input 
File is: 
l<As==<<s>= SS Se a 1 
j j 


“= BIND -- Giobal Fite Tittle --~ » -- Separate File Titte ="- 3 =<] 
Global Fite Tittle and Separate File Tithe are file tittes 
cenforming to the following syntax. 

==" multifile id "cs 7s sess e200" sscace coe een sete ane es ene as ewe j 

I-- / =" file id -“-! i-- CN =" pack id 771 
Binder control options are attlowed on any input record witn a 
dottiar sign €$) in cotumr ones Simitar toa compiler  controt 


ODLIONS. | Valid control options and their default vatues are 
Listed below. 


(NO LIsT (True) 
CNO] LISTHEX (Fatse) 
CNO] SUMMARY {False) 
CNO] SYMBOLIC _Duyp (True) 
CNG] DESUG_HASH {(Fatlse)d 


{NOJ DEBUG_SYMEOL_TABLE (False) 
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The first four options correspond to compiler cptions with the 
same name. If LIST is True» a Listing cf procedures and code 


addresses will be produced. If LISTHEX is True» 


code addresses 


will be printed as hex valuess otherwise they wilt be printed as 
decimal values. If SUMMARY is True» summary Statistics will be 
printed at the end of the tisting. If SYMBOLIC_DUMP is False» no 
symoolic duap informaticn wilt be inciuded in the final code 


file. The DEBUG opticns are for binder debugging. 


3e2@ MCP CONTROL SYNTAX Product Specification for 
syntax to compile programs. 


Example: 


CO XSDL2 SOL2/BINDER LIBRARYS 
FI CARG CAFD~REACERS 
DATA CARD 
SUMMARY 
BIND SDL2/GLGBAL ON SDL2> 
SDL2/DECLARE ON SDL2> SDL2/STATEMENT 
2? END 


OF AD ag 4d 


detaits of MCP 


ON SDL2>s 
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CODE ANALYZER EXECUTION 


FILES 

CARD optional input file Cif SWO = 1) 

LINE output tlisting 
DESCRIPILON 
The SOL2/5A program anatyzes SDL2 code files. Input i185 via 
Accept commands or the CARD file» and is free format with one or 
more tokens per Accept command or input record. A blank Accept 


command or end~of"file terminates the program. 


The program will first ask for the title of the code fite. The 
entire title must appear on @ Single Accept command or input 
records conforming to the syntax shown belowe Other commands may 
follow the title in the same Accept command or inpout record. 


w-- multifile id -*------ artes ewer wccen weet en eeaneeenane alata 
i 11 
In- / =~ file id --?) I= ON =" pack id ="! 


After the file is onened and verified» the program with promot 
for commandse The aitowable commands are tisted below. 


Ct 


The code dictionaries widl be printed. Unbound code 
files have onty a segment dictiongry» while executable 
code files have both a page and segment dictionary. 


CODE [pagel segment 


Prints the cantents of the code file within the 
Specified page and segment. The page and/or segment 
may be ALL instead of an integer» in which case atl 
pages or seqments wilt be anailyzece If an unbound unit 
is being analyzed» then page cannot be specified. 
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COUNT Upagel segment 


Counts the number of occurrences of each S~op within 
the specified page and segment. As with the CODE 
commands ALL may be used insteé#d of an integer value 
for the page and/or segment. Both the frequency count 
and the percentage of total operands wilt be printed 
for each Swoop. If an undound unit is being analyzed» 
then page cannot be specified. 


DMS segwent 


Prints the contents af the code portion of a DMS 
Dictionary file within the specified segment. The 
segment may be ALL instead of an integers in which case 
all Segments will be analyzed. 


END 
Terminates the program. 
NEXT 
The current cade fite wilt be closed» and the user will 
be asked for the name of the next code file to analyze. 
PPB 
The contents of the Frogram Parameter Block and 
scratchonad wilt be printed. This command is not 


atlowed with an urbound code file. 
PSS entries 
The number of Procedure Stack entries wilt be changed 


to the specified number. This command 1s not attowed 
with an unbounc ccde filee 


2a YM 
Prints the symbol tabde inforgation from a bound or 
unbound code file. 

TEACH 
Displays commands on the (CDOT. 

UH 


The contents af the Unit Header witti be printed. This 
command is only altowed with an unbound code file. 
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Example 3 


aA > ENTER FILE TITLE OR BLANK TO TERMINATE 
User = TEST/PROGRAW CN P 

SA s COMMANDS: CODE COUNT PPB PSS SD NEXT END 
User =: CODE 

SA 2? ENTER PAGE NUMBER OR *#ALL! 

User =: 9 

3A 2: ENTER SEGMENT NUMEER OR TALL? 

Jser 3 ALL 

SA +: COMMANDS: CODE COUNT PPB PSS SD NEXT END 
User : CODE 1 5 PPB &D END 


Note that command prompts are issued onty when SDL2/S5SA expects a 
com@aand but no command fas been entered. If a command has 
already been entered» then the prompt wiitl be suppressed 
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This 
5CL2. 


Identifiers marked with an asterisk are reserved onty to 
programs converted from SDL. 


errer 


section 


COR 
CONSTANT 
CONTAINS 


EXOR 
EXTERNAL 
FOR 

FILE 
FOREVER 
FORMAL 


FORMAL_VALUE 


FORWARD 
IF 
IN 


INTERSECT 


MEMBER 


recovery 
special function 


Lists 


the 


for 
in SOL?2. 


L471 


COMPANY CONFIDENTIAL 


B1090 


SDL2 COMPILER 
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RESERVED WORDS 


identifiers which are reserved words in 


CR 
POINTER 
PROCEDURE 
RECGRD 
REDUCE 
REFER 
REFERENCE 
REPEAT 
RETURN 

* SEGMENT 

* SEGMENT_PAGE 
SET 
SETTING 
STOP 
SWITCH FILE 
THEN 
TYPE 
UNDO 
UNTON 
UNTIL 

* USE 
WHILE 


improve 
They have no 
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APPENDIX A == VPLZ 


UPL2 is a “safe” version cf the SDL2 compiter. It is a subset of 
SCUL2» and does not include the fottowing constructs. 


ALLOCATE_MEMCRY 
BASE_REGISTER 
BINARY_SEARCH 

CALL 

CODE_ADDRESS 
COMMUNICATE 
COMMUNICATE_WITH_GISMO 
DATA_ADDRESS 
DATA_OFFSET 
DATA_TYPE 
DC_INITIATE_I0 
DISASLE_INTERRUPTS 
DISPATCH 
DYNAMEC_MEMORY_BASE 
ENABLE_INTERRUPTS 
ERROR_COMMUNICATE 
FETCH 
FETCH_COMMUNICATE_MSG_PITR 
FREEZE_PROGRAM 
HALT 
HARDWARE_MONITOR 
LIMIT_REGISTER 
REFER_ADDRESS 
REFER_LENGTH 
REFER_TYPE 
SAVE_STATE 
SEARCH_LINKED_LIST 
SEARCH_SDL_STACKS 
SEARCH_SERLAL_LIST 
SHIFT 

TEST 

THAW_ PROGRAM 


Delete right assign@ent expression (2:=) 

If or Case expressions used as address generators 
POINTER variables 

REFERENCE and POINTER arrays 


INTITIALIZE_REFERENCES Cdefautt is True for UPL2) 
INTRINSIC 

LISTHEX 

RUNTIME CHECKS 


we 09 6 66 


REFERENCE and POINTER arrays are axcluded from UPL2. 
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APPENDIX £ == SOL If SOL2 CONVERSION 


This Appendix provides inforewation useful when converting SDL 
programs to SOL2. The first section describes SDL constructs 
which @#ust be changed and/or avoided when converting to SDL2. 
The second section describes the standard routines which are 
available in SDL but not in SDL2. The third section describes 
now to convert SOL~style file attributes to the CSG~Standard file 
attributes used by  SDL2. The fourth section describes how to 
cenvert SOL compiler control options toa SBL2 compiter control 
OpPtionse 


Note that this Appendix is intended as a conversion aid» not a 
tutorials» and for this reason does not document new SDL2 features 
which were not available in SOL. In particutar» the Type» 
Constants For» Repeat» While» and Labeled Case statements are ail 
new in SDL2e and are described elsewhere in this document. 


DIFFERENCES BEIWEEN SDL AND SDL2 


The following differences between SDL and SDL2 can be resotved by 
direct text substitution. 


1) Cospatiat record dectarations must use "1! instead of 
"ses" to delimit fields. 


2) The relational operators listed on the teft» belon» are 
no longer aitlowed. They must be replaced with the 
operators on the riqht. 


f= <> 
NEQ <> 
EQL = 
GTR > 
L355 < 
GEQ >= 
LEQ <= 


3) SWAP must be replaced by READ_LOCK. 
4) DUMP_FOR_ANALYSIS must be replaced ty DUMP. 


5) SPO_INPUT_PFESENT must te replaced by 
OOT_INPUT_PRESENT. 


6) The vertical tar "I" cannot be used for assignment se 
It must be reclaced by “2=". 


v) SORT_SWAP must be reptaced by “2=2". 
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*) LAST_LIG_STATUS must be reptaced by the STATE file 
attribute. 


8) DYNAMIC is no longer reauired within dynamic variable 
declarations» and it must be reptaced by tlanks. 


9) Valid SDL identifier names may cause reserved-word 
conflicts with SDBL2. New reserved words include: 


CAND ME MBER 
CONSTANT PCIATER 
CONTAINS REPEAT 
COR SET 
DOWNTO TYPE 
EXTERNAL UNICN 
FOR UNTIL 
IN WHILE 
INTERSECT WITH 


The next set of differences cannot te resoived by direct textuat 
substitution». However» ali occurrences of these constructs in an 
SCL program can be easily converted to the equivalent sodL2 
construct. 


19) There is no UNDO (*) construct. Do~Loops using this 
construct must be converted to na@ed dottoops» and an 
undo of the outermost tloop substituted for each 
instance of UNDO (*). 


11) Att formal declarations must be specified in the same 
order as the variables appear in the procedure heading. 


12) Ail close options must be separated by commas. 

13) White the CHAR_TABLE function is still implemented in 
SOL2» it no longer produces a bit table in the same 
order as SDL. Thus» programs which relied on the bit 
positions of a CHAR_TABLE string must be rewritten. 
For example» the follewing SDL code checks whether CH 
is a dicit: 

SUBBIT CCRAR_TABLEC"0123456789")» CH» 1) 
It must be reptaced by the fottowing SBL2 code: 
CH IN CHAR_TABLE €70123456789*) 


14) The GROW construct is no tonger necessary» since paged 


arrays will automaticaliy grow in sizee The number of 
elements in the array may be tested by the function 
ARRAY_BOUND. 


15) The LOCATION functions which returned a 33~hit valtue> 
must be replaced ty CODE_ADDRESS>» which returns a 
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16) 


17) 


158) 


19) 


The next 
above. 


290) 


21) 


32-bit value. 


o0L2 treats comments and endwof~lines as Separators. 
This means tokens cannot be split across two source 
images» and comments cannet te embedded within 
identifiers or titerais. For example» the following 
SDL construct ; 

A 3= 94236/*% 
«/7TDF Cas 


must be reptaced by the following SOL2 construct: 


A 3= g4236a CAT 
a70FQas 


ACCEPT» DISPLAY» and ZIP are standard procedures in 
SDL2>» 50 their parameters aust be enclosed in 
parentheses. 


Paged arrays are deciared differently in SDL2. SOL 
required the "PAGED Celements per paged” part of the 
dectaration tefore the identifier namer while SOL2 
requires this part of the dectaration to be placed 
between the array bound and the scatar type. 


Conditional compjlation booteans must aiways be 
explicitly SEY or RESET before they can be used in an 
RIF statement. SOL initialized ali undectared 
conditional campitation booleans @&5 though they were 
RESET. 


set of differences reauires more thought than those 


No descriotor maniputation is atlowed. Ail 
descriptor~retatec constructs in SOL must be replaced 
by the use of reference variables» and the constructs 
DATA_LENGTH» DATALADDRESS» DATALTYPE>» REFER_ADDRESS» 
REFER_LENGTH» and REFER_TYPE. 


Selferrelative variables will not be initialized to zero 
in SDL2» as they were in SDL. Instead» they must be 
expticitily set to zero if this is what the programmer 
intended. This couid tead to subtie programming Dugse 
if any usages of nonwinitiatlized variabies are not 
detected during the conversion process=» However» if 
the SCLEAR_LOCALS compiler controt ception is specified» 
then the coaspilter wild generate code to set ali tocal 
data space to vero and atl descriptors to invaiid 
addresses. 
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22) 


26) 


Fite dectarations Must use CSG-Standard file 
attributes. The CHANGE? READ_F PB» and WRITE_FPB 
statements have been reptaced by direct references to 
standard file attributes. See the FILE ATTRIBUTES 
Section of this Appendix for more information. 


The OPEN statement does not allow any options» eg- 
OPEN INPUT. All open options must be set before the 
open request» using File attribute assignment se 


The result of the togical operations OR» EXQR» and AND 
is atways of type bite In SOL» the result was of the 
same type as the tongest operards and s0 coutd 
sometimes be of type character» 


All unstructured records in SDL had atype of bit» In 
SDL2>» the record witli be of type bit only if at Least 
one of its subfields is not of type character. If alt 
of the subfields are character fields» then the record 
will be of type character. 


The extended arithmetic oferators X_ADD» X_SUB» X_MUL>» 
X_DIV» and X_MQD always returned bit strings of a 
predictable Length in SDL. In SOL2» the tength of the 


result can vary» depending on the number of bits 
required to maintain precision. In SDL» if both 
operands were of the same tlengths they they were 
assumed to be tn twos complement forme ailcwing for 
Sign anatysise In SBDL2» both operands are assumed to 


be positive and no siqn analysis 15 done» 


The following list describes those features which witt be the 
most difficult to change when converting from SOL to SOL2. 


30) 


No indexing is adtowed. Alt indexing must be replaced 
by the use of record or reference variables. 


No structured dectarations are allowed» and 
consequentiy no USE statements. Att such declarations 
must he converted to records. These changes may be 


simplified by the use of structured records and the 
WITH statement. 


SEARCH_LINKED_LIST and SEARCH_SERIAL_LIST use records 
instead of templates» and are formatted stightty 
differently than in SDL» See the CONVERSION OF 
STANDARC ROUTINES Section of this Appendix for more 
informations 


REMAPS is not attoawed. It must be replaced either by 
cospatial record fields» or the use of reference 
variables. 
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The following differences between the two languages should aiatso 
be noted. 


31) The CREATE_MASTER and RECOMPILE capabilities do not 
exist in SDL2. They have been replaced by the 
compitation of separate program units» which are later 
bound togethere 


32) Segmentation is less flexible in SDL2. Segmentation 
may only be done at procedure boundaries» and only dy 
requesting that a new segment and/or page be generated. 
Not @» honevere that SOL2 provides automatic 
segmentation» which was not available in SDL. 
User-specified segmentation is done through the use of 
the $SEGNENT ang SSEGMENT_PAGE conpiler control 


options SOL SEGMENT statements wilt generate an 
advisory messager» not a syntax errore Eventuatty» 
however» specifying SEGMENT outside of a compiler 


controt option witt be considered a syntax error. Note 
that SEGMENT cénnot be defined as blanks» since this 
will work incorrectly when used in an IF or CASE 
statement. 


333 There have teen some changes to the compiier control 
options Cdoltar cards). Any usage of compiler control 
options in SCL shoutd be checked against the altowabte 
options in SL2. In particutar » the monitoring» 
profiling» and timing capabilities of SOL are not 
iaplenented in SBL2. Atsor permanent compiler control 
options must be preceded by *£8' instead of *R&*. 


34) In conformance with the CSG Compiler Control Images 
Standards the internat names of some files have been 
changed. The primary input file is CARD instead of 
CARDS» and the error message file is ERRORS instead of 
ERROR_LINE» 


The following differences beteween SOL and SDL2 concern 
performance. Some SDL constructs are not as efficient a5 
atternate constructs available in SDL2. 


35) The SDL Reduce Statement did not atlow a reduction 
condition of “NGT IN". Att statewents of the form: 


REDUCE TEXT UNTIL FIRST IN NOT SPECIALS=s 
should be replaced by the more efficient form: 
REOUCE TEXT UNTIL FIRST NOT IN SPECIALS=s 
36) Type and Constant statements were not available in SDL. 


Converting Defires toa Types and Constants should 
improve compile speed. 
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37) In SDL the statement 
BuMP [> 
was more efficient than 
Io:= [ # 13 


In $DL2 the reverse is truee 
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SIANDARD FUNCTIONS AND PROCEDURES 


UNIMPLEMENTED STANDARD ROLIINES 


The following standard SDL functions 


available in SDL2. 


ACCESS_FILE_INFORMATION 
CHANGE_STACK_SIZES 
CLEAR 

CONSOLE_SWITCHES 
CONTROL_STACK_8115 
CONTROL_STACK_TOP 
DEBLANK 

DELIMITED_TOKEN 
DISPLAY_BASE 
ENTER_CORQUTINE 
EVALUATION_STACK_ToP 
EXECUTE 

EXIT_COROUTINE 

GROW 

HASH_CODE 
INTERROGATE_INTERRUPT_STATUS 
INITIALIZE_VECTOR 


M_MEM_SIZE 
MAKE_DESCRIPTOR 
MAKE_2EAD_ONLY 
MAKE_READ_WRITE 
NONITOR 
NAME_STACK_TOP 


and procedures are 


NEXT_ITEM 
NEXT_TOKEN 


PARTITY_ADDRESS 


PRE VIOUS_ITEM 
READ_CASSETTE 
READ_FILE_HEADER 
READ_fPB 
READ_OVERLAY 
REINSTATE 
RESTORE 
S_MEM_SIZE 

SAVE 
SEARCH_DIRECTORY 
sar T 

SCR T_MERGE 
SCRT_SEARCH 
SORT_STEP_DOWN 
SOR T_UNBLOCK 
THREAD_VECTOR 
TRACE 
VALUE_DESCRIPTOR 
WRI TE_FILE_HEADER 
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CONVERSTON QE STANDARD ROUTINES 


Clear 


SDL syntax: 
CLEAR ARRAY> 
OCL2 syntax: 


PROCECURE CLEAR {CA)> 
FORMAL A (*) BIT> 


DECLARE INDEX FIXEDs 


FOR INCEX s= 0 TQ 
A CINDEX) 2= Qs 
RETURN; 


END CLEAR; 


CLEAR CARRAY)> 
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ARRAY_BOUNC (A) - 1 


G6/28/84% 1679 


BURROUGHS CORPORATION COMPANY CONFIDENTIAL 
CCMPUTER SYSTEMS ¢cROUP 81000 SDL2 COMPILER 
SANTA BARBARA PLANT P.5e 2228 35190) 
dashcode 


SOL syntax: 
HASH _CODE CTOKEN) => 
SOL2 syntax: 


PROCEDURE HASH _CODE CTOKEN)D BIT (24)> 


FORMAL 
TOKEN CHARACTERS> 
DECLARE 
TOKEN_LENGTH FIXED» 
INDEX FIXED» 
CH REFERENCE» 
HASH BIT C27)5 


HASH $= TOKEN_LENGTH s= LENGTH CTOKEN)3 
IF TOKEN_LENGTH > 15 THEN 
TOKEN_LENGTH 2=153 
INDEX z= 03 
WHILE INDEX < TOKEN_LENGTH 003 
REFER CH TO SUBSTR CTOKEN» INDEX» 193 
BUMP INDEX? 
BUMP SU8BIT CHASH» 3 - CINDEX MOD 4)» 24) BY CH3 
ENDS 
RETURN SUBBIT CHASHs 3» 24)3 
END HASH_CODES 


Note that this procedure is by no means an optimal hash function. 
It should be used oniy if it as essentiat to compute the 
identical hash values computed by SDL. 
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Search Linked List 


SBL syntax: 


SEARCH _LINKED_LIST CSTART_RECORD> 
COMPARE_FIELD> 
COMPARE VALUE» 
RELATION? 
LINK FIELD) 


SOL2 syntax: 


SEARCH _LINKED_LIST CSTART_RECORD> 
;COMPARE_FIELD RELATION COMPARE _VALUE» 
LINK FIELD) 


In SDL» START_RECORD could be either an expression or an address 
generator. In SOL2>» it must be an address generator with a 
RECORD type. COMPARE_FIELC and LINK FIELD aust be fields within 
that record type. 


SBL returned the basecrrelative address of the first structure 
where the expression COMPARE_VALUE RELATICN COMPARE_FIELD was 
true. If no match was fcunc it returned aFFFFFF a. SDL2 returns 
the first structure where the expression COMPARE_FIELD RELATION 
COMPARE_VALUE 15 truer or an address qenerator with a data 
address of a@FFFFFFa. 


Exampte: 


SDL: RS_ADDR 2= SLLUSTART_ADOR» RS_JOE_NUMBER [0]> 
JN» =» RS_Q@_LINK £91)3 
IF RS_ADDR = aFFFFFF2 
THEN NOT_FOUNDS 


SOL2: DECLARE FIRST REFERENCE RS_NUCLEUS > 
RSN REFERENCE RS_NUCLEUS? 
REFER_ADCRESS CFIRST» START_ADDR 33 
REFER RSN TO SLLCFIRST>» 
RS_JOB_NUMBER = JN» 
RS_Q_LINK))» 
if DATA_ADDRESS CRSN)D = GFFFFFF a 
THEN NOT_LFOUND> 
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Search Serial List 


SCL syntax: 


SEARCH _SERIAL_LIST (COMPARE_VALUE> 
RELATION» 
COMPARE_FIELD> 
STAFT_RECORD» 
TABLE_LENGTH» 
RESULT_VARIABLE) 


SOL2 syntax: 


SEARCH _SERTAL_LIST CSTART_RECORD> 
COMPARE_FIELD RELATION COMPARE_VALUE> 
TABLE_ITEMS) 


START_RECORD must be an address generator with a RECGRD type» and 
COMPARE_FIELD must be a field within that record type» Ore 
START_RECORD can be any address generator» and COMPARE_FIELD must 
be omitteds in that case START_RECORD will be used as the 
cemeparison field. 


In SDL» TABLE_LENGTH specified the number of bits to be searched. 
In SDL2»5 TABLE_ITEMS emust be used instead of TABLE_LENGTH. 
TABLE_ITEMS specifies the number of sequentiai entries that are 
to be searched. 


$0L returned ail if the search succeeded» anda0O if it faited» 
with RESULT_VARIABLE being set to the base relative address of 
the entry containing CGMPARE_VALUE. STL2 does not use a 
parameter to return the result of the search. Instead» the 
function returns the elewent nuagber of tne matching entry (Cthe 
first element is 0). If no match is founds then TABLE_ITEMS will 
oe returned. 


Example: 


SOL : IF SSLCJN» =» UNIT_JOB_NUMBER {01> 
IDAT_REC CHINT.~IGAT_POINTERI> 
HINTS «IQAT_END = HINTSeIOAT_POINTER> 
IOAT_ADDR) = G 
THEN NOT_FOUNDS 


SDL2:3 DECLARE IOAT REFERENCE ITOAT_REC> 
REFER_ADDRESS CIGATs HINTS-IOAT_POINTER )> 
ENTRY = SSL CIGAT» UNIT_JOB_NUMBER=J3N>» IGATLENTRIES D> 
IF ENTRY = TOAT_LENTRIES 
THEN NOT_FOUNTs; 
ELSE IOAT_ADDR 2= HINTS-ITGAT_POINTER + 
ENTRY * IOAT_SIZE> 
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FILE ATIRISUTES 


SBL2 uses CS5G"Standard fite attributes in File Declarations and 
in Get/Put Attribute Statements. The CSG*Standard attributes 
implemented by the B10CC MCP are documented in the Mcp 
COMMUNICATES AND STRUCTURES Product Specification. 


This section lists the attributes allowed in SDL» along with the 
equivatent standard attributes avaitable in SDL2~. It does not 
List alt of the standard attributes allowec ty SDL2. These are 
documented in the INPUT/CUTPUT Section. 


Attributes Used In Eile Decharation Statements 


SDL SDL2 
ALL_AREAS_AT_GPEN ALLOCATEATOPEN = TRUE 
AREA _BY_CYLINDER not implemented 
AREAS = areas/biks_per_area AREAS = areas 


AREALENGTH = chars_per_rec 
* recs_per_blk 


*« biks_per_area 
or» AREABLOCKS = olks_per_area 


BUFFERS = BUFFERS = 

DEVICE = Cin alphabetical order) KIND = 
CARD DATARECORDER 
CARD_PUNCH forms backup DISK 
CARD READER ODOT 
CASSETTE PAPERPUNCH 
DATA RECORDER_89 PAPERREADER 
DISK access PCRT 
DISK_FILE access PRINTER 
DISK_PACK access PUNCH 
DISK _PACK_CENTURY access PUNCHSO 
DISK_PACK_CAELUS access PUNCHI6 
PAPER_TAPE_PUNCH forms backup QUEUE 
PAPER_TAPE_READER READER 
PORT READERSORTER 
PRINTER forms backup READERSO 
PUNCH forms backup READERI6 
PUNCH _PRINTER foras backup REMQTE 
QUEVE Cmax msqs) TAPE 
QUEVYE Cmax msgs) FAMILY (size) TAPECASSETTE 
READER LPUNCH_PRINTER forms backup TAPEPE 


READER SORTER TAPE?Z 


06/28/84 16-13 


BURROUGHS CORPORATION COMPANY CONFIDENTTAL 

COMPUTER SYSTEMS GROUP B1i000 SDL2 COMPILER 

SANTA BARBARA PLANT PeSe 2228 3519(C) 
REATER_9b TAPES 


REMOTE Cmax msgs) remote_options 
SORTER_READER 


SPO 
TAPE 
TAPE_NRZ 
TAPE_PE 
TAPE_7 
TAPE_9 
access = null ACCESSMOQDE = 
SERIAL SERIAL 
RANDOM RANDOM 
DELAYED_RANDOM DELAYEDRANDOM 
SERTAL_WITH_CVERKRITE not implemented 
ferms = nuti 1 FORMS not implemented 
backup = null BACKUP KIND = 
BACKUP DISK 
BACKUP DISK TAPE 
BACKUP TAPE 
NO BACKUP BACKUPPERMITTED = 
GR BACKUP DENTCARE 
OR BACKUP DISK DONTBACKUP 
OR BACKUP TAPE MUSTBACKUP 
queue max msgs QMAXMESSAGES = 
queue family size QFAMILYSIZE = 
remote options = WITH HEADERS REMOTEHEADER = TRUE 
FAMILY QFAMILYSIZE > 1 
END GF _PAGE_ACTTION ENOGFP AGEACTION = TRUE 


il 


\ 
> FAMILYINDEXK = 
EULSPECIAL = / 


EULINCREMENTED 


EXCEPTION MASK not implemented 


FILE_TYPE = FILEKIND = 
DATA DATA 
INTERPRETER INTERPRETER 
CODE CODE 
INTRINSIC INTRINSIC 
PSR_DECK P SEUDO_CARD 

HOST_NAME = HOSTAAVE = 

INVALID_CHARACTERS = INVALIDCHARS = 


LABEL = mfid/fid TITLE = 
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LABEL_TYPE = 
ANSI 
BURRIUGHS 
UNLABELED 


LOCK 


MODE = 
oDn0 
EVEN 
EBCDIC 
ASCII 
BCL 
BINARY 


MULTI_PAaCck 
NUMBER_OF_STATIONS = 


OPEN_OPTION = 
INPUT 
INPUT/ OUTPUT 
INTERPRET 
LOCK 
LOCK_OUT 
NEW 
NO_LREWIND 
ON_ BEHALF _OF 
OUTPUT 
PUNCH 
PRINT 
REVERSE 
STACKERS 


OPTIONAL 
PACK_ID = 
PROTECTIIN = 


PROTECTION IO = 


RECORDS = chars_per_recérecs_per_blk 


REEL = 
REMCTE_KEY 
SAVE = 


SECURTTYTYPE = 


16-14 


COMPANY CONFIDENTIAL 
Bi000 SDL2 COMPILER 
PeS2 2228 3519(C) 


LABEL = EBCDICLABEL or ASCIILABEL 


not implemened 


LABEL = QGMITTED or OMITTEDEOF 


not implemented 


PARITY = ODD 
PARITY = EVEN 
FXTMODE = ESCDIC 
EXTMGDE = ASCII 
EXTMODE = BCL 
EXTMODE = BINARY 


not implemented 


STATIONSALLOWED = 


MYUSE IN 

MYUSE I0 
CPENNOREWIND = TRUE 
QTHERUSE = IN 
QTHERUSE = SECURED 
NEWFILE = TRUE 
OQPENNGREWIND = TRUE 
GPENCNBEHALFOF = TRUE 
MYUSE = QUT 

OPEN®I THPUNCH = TRUE 
OPENKITHPRINT = TRUE 
DIRECTION = REVERSE 
not implemented 


ihe il 


OPTIONAL = TRUE 

FAMILYNAME = 

SECURITYTYPE = 

SECURITYUSE = 

MAXRECSIZE = chars_per_rec 

BLOCKSIZE = chars _per_rec 
* recs _per_bitk 

VOLUPFE INDEX = 

PEMOTEKEY = 

SAVEFATTOR = 


SECURITYTYPE = 
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SECURITYUSE = 

SERIAL = 


TRANSLATE = fiteid 


USE_INPUT_BLOCKINE 
USER_NAWED_BACKUP 


VARTABLE 


WORK FILE 


USERBACKUPNAME 
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SECURITYUSE = 


SERTALNO = 


TRANSLATE = FORCESOFT 
fileid not isptemented 


TRUE 


DEPENDENTSPECS 


TRUE 


ii 


BLOCKSTRUCTURE = VARIABLE 


SBPFILEXIND = 11 


WORKFILE = TRUE 
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Attributes Usec In Change (Get/Put)d Statements 


This section lists the fite attributes wuhich were allowed in an 
SCL Change Attribute Statement» but not in a Fite Dectaration. 
For a comptete List of file attributes which are aliowed in SDL2 
Get/Put Attribute Statements» refer to the INPUT/OUTPUT Section. 


SDL SDL2 
BLOCKS_PER_AREA = biks_per_area AREABLCCKS = biks_per_area 
EU_ORIVE = FAMILYINDEX = 
EU_LINCREMENT = FAMILY INDEX = 
FILE_1ID = FILENAME = 
MULTI_FILE_ID = FILENAME = 
NUMBER_CF_AREAS = AREAS = 
OPEN_ON_BEHALF_OF = OPENCNBEHALFOF = 
QUEVE_FAMILY_ SIZE = QFAMILYSIZE = 
QUEVE_MAX_MESSAGES = QMAXWESSAGES = 
REMOTE_HEADERS = REMOTEHEADER = 
RECORDS_PER_BLOCK = recs_per_bl k BLOCKSIZE = chars _per_rec 


* recs_per_bik 


RECORO_SIZE = chars _per_rec MAXREC SIZE = chars _per_rec 
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COMPILER CONTROL OPTIONS 


SCL2 atltows different compiler options than SDL. Most of the 
changes were made to corfors to the CSG Compiler Control ITmages 
Standarc. Permanent compiter ortions must te preceded by #88" in 
SDL2.5 instead of “84 as in SDL. 


This section Lists the options allowed tn SDL» along with the 
equivadent options avaitabte in SDL2. It does not List alt of 
the cospiler options allowed by SDL2. These are documented iin 


the COMPILER CONTROL Section. 


SOL SDL2 
ADVISORY not implemented 
AMPERSAND LISTAMFERSAND 
CHECK SEQCHE CK 
CODE CODE 
CONTROL LISTDOLLAR 
CONVERTCOTS not implemented 
CREATE _ MASTER not impiemeanted 
CSSIZE PROCEDURE_STACK_SIZE 
DEBUG various 
DETAIL not iaplemented 
DOUBLE not inplemented 
DYNAMICSIZE CYNAWITC_MEMORY 
ERFROR_FOILE ERRORLIST 
ESSIZE STATIC_ MEMORY 
EXPANCO_ DEFINES not implemented 
FORMAL_CHECK not implemented 
FREEZE not implemented 


INTERPRETER not imptemented 
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INTRINSIC 

LIBRARY 
LIBRARY_PACK 

List 

LISTALL 

LOCKI 

MERGE 

MCNITOR 
NEST_PROCEDURE_TIMES 
NEW 

NO_DUPLICATES 
NC_SOURCE 

NSSIZE 

P AGE 

PASS_END 

PPSSIZE 

PPROF ILE 

PROFILE 

RECOMPILE 
RECOMPILE_TIMES 

SEQ 

SINGLE (SGL) 

SIZE 

SUPPRESS 

TIME_SLOCKS 
TIME_PROCEDURES 


TIME _ MCP 
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INTRINSIC 
INCLUDE 
FAMILY 
LIST 
LISTGMITTED and LIST 
not implemented 
MERGE 
not implemented 


not implemented 


NEW 


not implemented 
not implemented 
STATIC_MEMORY 
PAGE 

not implemented 
PROCEDURE_STACK _SIZE 
not implemented 
not impiemented 
not implemented 
not imolemented 
not implemented 
not implemented 
not implemented 
not imonlemented 
not implemented 
not iapteaented 


not jaotemented 
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USEDOTS 

VOID 

VSSIZE 

WORKING _SET_BYTES 

XMAP 

KREF 


ARCF_ONLY 
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not implemented 
¥OID 
STATIC _ MEMORY 
not implemented 
not imptement ed 
XR EF 


not implemented 
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INDEX 


ABNORMALSAVE , 7 

Accept 6=23 

ACCEPT 6-23 

ACCESSMODE 729 7718» 719 
Actual Procedure Gectlaratior 3-23 
Add Factor 570 

Address Generator a~7i4 
Atiocate 6-23 

Aiiocate Memory 671 
ALLOCATE_MEMDRY oi. -. 
ALLOCATEATOPEN I-29 (718% 77-19 
ALTERDATE 77-19 

ANALYZER 13-1 

AND 5-3» 10-1 

And Factor 574 

APPENDIX A -~ UYUPL2 15-1 
APPENDIX 8 == SOL TO SDL2 CONVERSION 16-1 
AREAADDRESS rie, 7-15 
APEAALLCCATED ’-1i8» 7-19 
AREABLOCKS 7-29 F718» 77-19 
AREALENGTH Y72y 7718, (715 
AREAS T-29 Vri8s Fr-19 
Arithmetic For Range 4-8 

Array Bound 671 

Array Subscript 5-8 

Array Type 3-12 

ARRAY_SGUND 671 

AS 3=3 

ASCII v-3 

ASCIILABEL {75 

Assignment Expression 5°11 
ASSIGNMENT STATEMENT 4-2 
ATTER® 77-19 

Attribute Value 6-2 
ATTRIAUTE_VALUE 6°72 

Attributes Used In Chance (Cet/Put) Statements 16716 
Attributes Used In File Declaration Statements 16°12 
ATTYVALUE 7-19 

ATTYPE T=19 

AUDLT r-14 

ALOITED ree ("18 7-19 

AUTO_ SEGMENT 9-1 

AUTO_SEGMENT SIZE 9-1 
AVATLAALE r-19 


BACKUPFILENAME ral? 
BACKUPKIND i“ "189 1°15 
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BACKUPPERMITTED i-2» 7718 7719 
Base Register 6-2 

BASE REGISTER 6°2 

SCL r-3 

Binary 6-2 

SINARY 67-2» 7-3 

Binary Search 673 

BINARY _SEAKCH 6°3 

BIND 1271 

BINDER EXECUTION sd | 

BIT 376» 6°65» 6°18» 6°36 
Bit Strings 2~3 

BLOCK 7-19 

BLOCKSIZE I-29 718» 7719 
BLOCKSTRUCTURE T-25 T71i8s (719 
BODY 4-1 

BOOLEAN 3-6» 3°19 

Boolean Expression 10-1 
BPI1690 7-3 
BPI200 i=3 

BPI556 7-3 

B8P16250 7-3 

BPI800 773 

BUFFERS Y~-3» 7r1iBs 7719 
Bump 6-3» b-24 

BUMP 63» 56724 

BY 673» 6°79» 6-24» 6726 


Cait 6-24 

CALL He24 

CALL STATEMENT 4-3 

C and 5-3 

CASE hehe 4°52 3-12 
Case Expression 5-12 
CASE STATEMENT 474 


CAT 5-1 
Cat Factor S=2 
Ce 13-71 


CENSUS 7-19 
CHANGEDSUSFILE 77-19 
CHANGEEVENT 6=2 
CKAR_TAGLE 6-4 
CHARACTER 3-6» 676» 6718» 6°30C 
Character Fiil 6-24 
Character Strings 2-2 
Character Table o~4 
CHARACTER _ FILL 6-24 
CHARACTER_SET 3-62 3-19 
CREAR6O 9-1 


Cher o~4 
CER 674 
CIVILIAN 6718 


Clear 16-8 
CLEAR_LOCALS 9-1 
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Close r-14 

CLOSE 1-7 T-14 
CODE 7-39 Jel» 137i 
Code Address 674 


CODE ANALYZER EXECUTION 


CODE_ADDRESS 674 
COMMUNCATE“WITH_GISMO 
Communicate 6-24 
COMMUNICATE 6=24 
Communicate With Gismo 
COMMUNICATE _WITH_GISMO 


Compite Card Information 
COMPILE _CARD_INFO 6-25 


CCMHPILER CONTROL 9~1 


COMPILER CONTROL OGPTICNS 


pe | 


6-25 


See 
6°5 
€- 


16-17 


CCMPILER EXECUTION pe ae | 


COMPRESSION (718s 7-15 
CONDITICNAL COMPILATICN 


CONSTANT 37 
CONSTANT DECLARATION 
CONTAINS 374 
CONVERSION 16-1 


CONVERSION OF STANDARD ROUTINES 


Convert 676 
CONVERT 6-5 

COR e's 

Cospatial Field List 
COUNT 13-2 
CCUNTER 6718 


CREATE_GLOBAL 8-2» J-2 


CREATIONDATE 7-19 
CREATIONTIME r7i13 
CRUNCH y-14 
CRUNCHED 6-25 
CURRENTELOCK q-i9 


DATA 7-3 

Data Address a) 
Data Length 5- 
Data Offset 6° 
Data Type 6~7 
DATA_ADDBRESS 6-7 
DATA LENGTH 6-7 
DATA_LGFFSET 6-7 
OATA_TYPE 6-7 
Datacomm Initiate I/0 
DATARECORDER 7-5 
Date 6-6 
DC_INITIATE_10 6-256 
OC_T¥O_COMPLETE 6-20 
DEBUG D-2 

DEBUG HASH 12-1 


-7 
7 
7 


1C-1 


3=5 


3-15 


BEBUG_SYMBOL_TABLE 127-1 


Decimal 678 
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DECIMAL 6-8 

DECLARATIONS 5~1 

DECLARE 3-22 

Decrement 6"“9» 6726 
DECREMENT 679» 6°26 

Default File Attributes 7-10 
DEFINE. 4=3 

DEFINE DECLARATION 3=3 
Define Head 373 

Define Parameter List a73 
DELAYEDRANDOM 7-2 

DENSITY 7-3» F718" 719 
DEPENDENTSPECS 7-3» 7-18» 7-19 
DESCRIPTION i2g=ls 1351 
DIFFERENCES BETWEEN SOL AND SDL2 1671 
DIGIT 6-138 

DIRECTION 773» F718» 7719 
Disable Interrupts 6" 726 
DISABLE_INTERRUPTS 6-26 

DISK T-2% (75 

Disnatch 6-9 

DISPATCH 5-9 

Display 6726 

DISPLAY 6-26 


DMS 13-2 
DMSDICTIONARY i-f 
DO 4-7 


DG STATEMENT &=-7 
DCNTBACKUP 7-2 

DCNTCARE *v-2 

DCNTIPRINT i-7 
DONTREPORT Tm4, 775 
DOUBLE 7~16 

DCWNTO 4=-3 

DUMMY 3716 

DUMMYFILE 7-3» 77182» 7719 
Dump 6727 

DUMP 6727 

Dynamic Memory 3ase 6=9 
DYNAMIC_MEMORY g-2 
DYNAMIC _MEMORY_BASE 6°93 


ESCOIC 7-3 

EBCDICLABEL 776 

EITHER 7-2 

ELSE Gr&ep G50 4°10» Srildse 513» 10~1 
Enabte Interrupts 6-27 

ENABLE INTERRUPTS 6°27 

END 3723» 4-7» 10"L» 13-2 

END CASE 4=4h» 4=5 
ENDOFPAGEACTION 7-3» "18% 7719 
EOF ("15% 7716» 7-17 

EGJ caf 

EOS 4-11 
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EQS_CYCLE 4-11 

Error Communicate 6-27 
ERROR _COMUNICATE 6~-el 
ERRQORLIVIT 9-2 
ERRORLIST 9-2 

EVEN -7 


EXCEPTICN T~i3» ¢"14» 7-15» 716 


E XUR 5°2 

Expression 5e1 
EXPRESSIONS 5-1 

EXTEND 7T=355 Tr1Bse (7-15 
Extended Arithmatics E-22 
EXTERNAL 3-23 

EXTMODE 7-3» F718» 7719 


FALSE 3-7%r 3719 

FAMILY 9-2 

F AMILYINDEX 7-3» 7718s.» 7719 
FAMILYNAME 7~“18> 7-19 
Fetch 6-28 

FETCH 6-28 

Fetch Communicate Messagqe Pointer 
FETCH _ COMMUNICATE _MSG_PTR 6-9 
Fietd List 3=15 

Field Selector 5-8 

FILe 7-1 

File Attributes T=2 

FILE ATTRIBUTES 16712 
FILE DECLARATION 374» 771 
File Pointer Type 3718 
File Resident 6710 
FILE_LOCKED 7713 
FILE_MISSING 7-13 
FILE_POINTER 3-10 
FILE_RESIDENT 6719 

FILE IND 7-3» 7713» 7-19 
FILENAME 7-185 7719 

FILES Liwkrl» 12~1» 13-1 
FILESECTION 718% Fig 
FILESTATE 7-19 
FILETRANSFER Y-13» 7-19 
FILLER 3-15» 3-16 

FIRST 4-11 

FIXED 3“6» 676» (72 

Fixed Numbers cuzZ 
FLEXIBLE ¥-3» 7718» 7715 
FCOTING T7409 Tr-18s» f-19 
FOR 4-8 

FOR STATEMENT 478 
FORCESOFT 7-9 

F GREVER 4-7 

FORMAL 37-24 


Formal Parameter Declaration 3=-24 


FORMAL_ VALUE 5724 


6-9 
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FORWARD 3-23» F=3 


FRAMESIZE 1-3» Tmh&e ("189 T7119 


Freeze Program 6-28 
FREEZE _ PROGRAM 6-28 


Get File Attribute 77193 
GET_ATTRIBUTE. 7719 
GUARDED Y-fse 779 


Halt 6~28 

qd AaLt 6-28 

Hardware Monitor 5-28 
HARDWARE_ MONITOR 6-28 
Hashcode 1679 

Aex Sequence Number 67-10 
HEX_SEQUENCE_NUMBER 6710 


HOSTNAME 773» T74y 7718» 7-19 


ITcentifier List 3-229 3-24 
[Identifiers dala 

iF 4-10» S-13» 101 

[ft Expression 57-13 

LF STATEMENT 4710» 1071 

IT F_NOT_CLOSED 7714 

IN 4-99 4-1Ll» S40 Feb» T-7e 
INCLNEW 9-3 

INCLUDE 9-3 

TINCOMPLETE_I0O 7-15» 7716 
(NDEPENDENT 8-2» 9=3 
INITIALIZE REFERENCES 9-3 
[INPUT/OUTPUT 7-1 
INPUT/OUTPUT STATEMENTS 7-12 
TNSECURE I-45 7718% F713 
INTERPRETER 7-3 

INTERSECT 5-3 

ININAME Tehe Tr5e (-1Las (719 
INTRINSIC (-3» 9-3 
INTROCUCTION i-i 

INVALIDCHAR S T-4r (-35e» 7-18» 
ta 7-6» fe 7-9 


JCGBCODE -7 
K IND 3-10» 7-5» FrLee 7-139 


LABEL 7-6» 7718» F-19 
Label List 4-5 
Labeled Case Statement 4 
Labeled Statement List 4~ 
LAST re el 

LASTRECORD 7-18» 7715 
LASTSUBFILE 7719 

Length 6719 

LENGTH 6-10 


(Aon 
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Limit Register 6-10 
LIMIT REGISTER 6710 
LINEF ORMAT 7-6» 7719 
LINENUM 7-19 

List 9-3» L2-i 
LISTAMPER SAND 9-4 
LISTDOLLAR gu 
LISTHEX 9Q-he Le-1 
LISTINCL ae 
LISTOMITTED 9-4 

Lock 7714 
LCWERMARGIN ("be T-18B»s 7-19 


MAXCENSLS r-i9 

MAXRECSIZE {~6» 718» 7°15 
MAXSTATIONS 7-6» 7-18» 7719 
MAXSUEFILES f-6» 718% 7-19 
MEMBER 6-6 

MEMBER OF 3-6 

MERGE 9-4 

Message Count 6°29 
MESSAGE_COUNT 67"29 

MILITARY 618 

MINRECSIZE "be (718s. (-19 
MED 576 

Multiply Factor 5-7 
MUSTBACKUP r=2 

MYNAME Yrbe (718% F°19 
MYUSE T-6» 7-18» F-19 


Name of Day 6719 
NAME OF _DAY B=19 
NOLCOTE r-7 

NEW 9~5 

NEWFILE 7~6» 7-18» 7719 
NEXT 13-2 
NEXTRECORD 7719 

NO 7-16 

NO_MIK_INFO 6-26 

NO REWIND y-14 
NOSOFT 7-9 

NOF 4-11,» 574» 10-1 
Nuit 6-11 

NULL 6711 
NYHOSTNAME 7-19 


uoD ray 

gtr y-5 

Odt Input Present 6~"11 
GOT_INPUT_PRESENT 6"Li»e €°20 
OF 4=-Se 5-12 

OMITTED 776 

OMITTEDEOF 776 


ON T™1i2» 77130 (714» 7-15» 7716» 


7-17 
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On Branch (=i? 

Oh EOS 4-11 

Oh EGS_CYCLE h-il 

ON_BERALF_OF T=1i5 

Open 13 

OPEN Y=i3se 7719 

OPENNOREWIND 7-6» (T-14» 7719 
OPENONBEHALFOF 7-6» @ei8s, 7719 
UPENWITHPRINT 7-6» 7-18» 77-19 
OPENWITHPUNCH f-6» 7718» 7-19 
OPERATOR_OK 6-20 

OFTIONAL 7-6» 7718» 7-139 
Qational Container Sizes and Member Values 
aR 5-2» 19-1 

Or Factor 5-3 

ord 6-11 

ORD 6711 

OTHERUSE 7-6» 718» rls 

GUT 7-6» Fr77e» 79 

OWERRIGE SECURITY 7-14 


Pack 6-il 

PACK 6711 

PAGE T-1ib» 9-5 

PAGED 3-12 

Paged Part 3-12 

PAGESIZE T-T» 7-18» 7719 
PAPERPUNCH 7-5 

P APERREADER 77-5 

Parameter List 3-235» An 3 
PARITY 7-7> 7718» 7-15 
PCINTER 3°79 

Pointer Type 3-%$ 

PORT 7-5 

PPB 13-2 

PRINTCOPIES 7-7» Fr1i8s» 7-19 
PRINTODISPOSITION Vei»e T7~1Lhs F-715 
PRINTER 7-5 

PRIVATE f-f»e 779 

PROCEDURE 3=23 

PROCEDURE DECLARATION 3-23 
Procedure Head 3-23 
PROCEDURE_STACK_SIZE $=5 
Processor Time 6-12 
PROCESSOR TIME 6-12 
Program Switches 6712 
PROGRAM _ SWITCHES 6-12 
PFOTECTED 7-7 

PROTECTION 7-79 %riBs 7715 
PROTOCOL T-7>» 77-13» 7719 
PSEUDC_CAFD 7-3 

PSS 13-2 

PUBLIC T-Te 779 

PUNCH 775 


IX~8 
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PUNCHS8O r=5 
PUNTHI6S y-5 
PURGE 7-14 
Put File Attribute 7°18 


Q@ WRITE GCCURRED 6-20 
QFAMILYSIZE (~-f>» (718% 7-19 
QMAXMESSAGES T-7Te (-1lfe 7-19 
QUEVE m5 


RANDOM Re 

aR ead 7-15 

READ {715 

read Lock 6712 
REAC_LOCK 6-12 
READ_OK 6-20 

READER 7-5 
REATERSORTER (=5 

RK EADERSS 775 

READERS 775 

RECORD S715 

RECORE CECLARATION 3-15 
RECORDNUMSER 7-19 
REDUCE 4-11 

REDUCE STATEMENT 4711 
REEL 7-14 

REFER 4-13 

Refer Address 6-29 
Refer Bound 6-29 
Refer Length 67-29 
REFER STATEMENT 4-13 
Refer Type 6-30 
REFER_ADDRESS 6°29 
REFER LENGTH 6-29 
REFER_TYPE 6-30 
REFERENCE 3-8 
Reference Arrays 3-13 
Reference Type 3-8 
RELATED DOCUMENTATION imi 
Relational Factor 575 
RELEASE 7-14 

REMAPS 3716 

REMOTE r=5 
REMOTEHEADER 7-7» r71@» 77-19 
REMOTEKEY f-7s 7718» 7-19 
REMOVE wis 

REPEAT h~Us 

REPEAT STATEMENT 4-14 
REPORT ALL T-45 7-5 
KEPORTFIRST 7-4, 775 
RESERVEE WORDS 14-1 
RESET 10-1 
Restrictions 5=2 
RESULT_MASK "15 
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RETURN 4-15» 7-13 
RETURN STATEMENT 4-15 
REVERSE 7-3 

Reverse Store 6-30 
REVERSE_STORE 6730 
ROLLOUT "14 
RUNTIME_CHECKS 9-5 


SAVE y~7 

Save State 6-30 

SAVE_STATE 6-30 

SAVEF ACTOR 777» (718% (2°15 

§ BPFILEKIND i-f> Fr-1Bs» 7-19 
Scalar Type 376 

Scope of an Identifier <4 
SEL 16-1 

SDL2 li-i 

$DL2 LANGUAGE 271 
SUL2/BINDER 12-1 

SOL2/SA 13-1 

SBLZ2CODE i7f 

SCL2SYMBOL dae 
SDL2ZUNBOUNDCODE r-7 

Search Linked List 6-13» 16710 
Search SDL Stacks B14 
Search Seriat List 6-15» 16°11 
SEARCH _LINKED_LIST 6-13 
SEARCH_SDL_STACKS 6-14 
SEARCH_SERIAL_LIST 6715 
SECURED 776 

SECURITYTYPE 779» T-18» 77-193 
SECURITYUSE 772» (779, (718% 7°19 
5 eek V-i7 

SEEK 7-17 

SEGVENT 9=<5 

SEGMENT_PAGE 9-5 

Selector 5-8 

SEPARATE COMPILATION §=1 
SEQCHECK 9-5 

2éeéquence Numbder 6°16 
SEQUENCE NUMBER 6716 

SERTAL 7-2 

SERIALNC 1-9» Tr1L8s 7ris 
SERVER_MESSAGE_ PRESENT €=-20 
SET 3719» 676» 16-1 

SET AND RESET STATEMENT 10-1 
Set Constructor 5-10 

SET DECLARATION 3-19 

Set Member For Range 4-S 
SETTING 4-11 

Shift B-156 

SHIFT 6-16 

Simple Type 376 
SIMPLEHEADERS 7718, 7-19 


IxXx-10 
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SINGLE T~-1b6 

Skip T-17 

SKIP 7~-1i7 

>pace Peis 

SPACE r-i7 

Special Characters a 

5S TANDARD FUNCTIONS 6-1 

STANDARC FUNCTIONS AND FROCEDURES 
STANDARE PROCEDURES 6-23 
STANDARD PROCEDURES AND FUNCTIONS 
STATE f7-1i9 

STATEMENT LIST 4-1 

STATEMENTS 4-1 

STATIC. SEMORY 9-6 
STATIONSALLOWED 779» FriBs 7-19 
3 TOP 4-16 

STOP STATEMENT 4-16 


STRUCTURE OF AN SDL2 PROGRAM 2=i 
Structured Field Identifier 3°16 


Structured Field List 3-16 
Structured Record 3°16 
Subbit 6-16 

SLBBIT 6~“16 

S UBF ILEERROR 7-19 

substr 6-17 

SLBSTR 6°17 

SUMMARY 9~b»e 12-1 

SWAP STATEMENT G-17 


SWITCH FILE DECLARATION 3-4» mil 


SWITCH_FILE 7711 
SYM =: 13-2 
SYMBOLIC_DUMP 9-69 121 


TAPE ¥-2» 775 
TAPECASSETTE r=5 
TAPEPE 7-5 
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